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PERSONAL COMPUTER: 

le prime, le migliori! 


PERSONAL SOFTWARE: 



BIT: La più letta, 
la prima e la più diffusa. 

SPECIALE MACINTOSH 
SUPERBIT - 80 pagine di programmi 
per i vostri personal computer. 

tta la competenza del 


L'unica che presenta 
software per tutti i personal: 
Commodore, Apple, Sinclair, T.I., 
HP, Sharp, Sega, Olivetti, ecc. 















Guida all’input dei programmi sullo ZX Spectrum 


Le “parole” comprèse tro parentesi graffe indicano i corotten grafia pre 
definii (C). il tosto (nomerà seguente la G). la necessità di premere il tosto 
insieme a CAPÌ SHIFT (eventuale S precedente lo G) e il numero di ripeti 
ztom del tosto richieste (eventuale numero all'inizio dello parola”)- I co 
rotten grofici definiti dal programma sonò invece indicati da lettere maiu 
scole (cornspondenti al tasto da usOre) sottolmeate 


[ Quando leggete 


][ 


Premete 


(Gl) 
(G2} 
fG3) 
{G4} 

{G S} 

(G6) 

{G7 } 

(G8) 

(SG1) 

{SG2} 

(SG3) 

(SG4) 

(SG5} 

{SG6} 



(SG7} Rai 

(SG8) Hai 


03 

EH. 

EH 

Ena 

EU 

n 

01 

EX) 



■ 

I 

% 







Vedrete 



Quando leggete Premete 


Vedrete 



Simbolo grafico 
definito nel 
programma in uso. 


il dotile 

llMlll èli 

modo C, 

Kll-StO MI » 


Guida per l’input dei programmi versioni VIC 20 e C64 


Notate che i listati contengono “parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è s ottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico solitario ", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colon. 


{CLR 1 
{HOME} 
{SU} " 
{GIU'} 
{SIN) 
{DES} 

{RVS} 
{OFF} 

{BLK} 
{WHT} 
{RED} 


SMIM IClfi MOM{ 


Clft/HOMf 



SHiii Incesa =3 

M - - : 


G23 □ 
GEI □ 


cm 



C 


5 


n 

E 



a 

e 


{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 
[< 1>1 
C < 2 > ) 
[ < 3 > ] 
[<4>] 
l<5>) 
l<6>) 


| CIBI 

| 4 ] 

■■■ 

m 

[ CIRI 

| 5 ] 

BHI 

M 

1 cm 

T7] 

■■■ 


[ Cm 

|? ] 

■■■ 


[ enti 

le 1 


tao 

tao 

QQ 
HO 
□ D 
QO 



{< 7>} 

m 

l<8> J 

□ 

{FI} 

Q 

{F2} 

Si 

{F 3} 

□ 

{F4 } 

15 

{F5} 

S 

{F6 } 


{F7} 

E 

■1 

{F8} 


□ a 

□ □ 

m 

CfcJ 

m 

ai 

ELI 

GB 

OD 





















































































































Catalogo libri 



Questo programma vi permetterà di gestire una 
libreria di arca MO libri. Pei ogni libro è possi¬ 
bile memorizzare autore, titolo, editore, anno 
di pubblicazione, numero di riferimento, nu 
mero del catalogo, argomento e tre descrizio 
ni che servono come chiavi di accesso per la 
ricerca del libro stesso nel catalogo. Il program¬ 
ma è completamente interattivo e permette 
l'inserimento e l'eliminazione dei vari libri del 
vostro catalogo. Le ricerche possono essere fot 
te per autore, titolo, editore e soggetto e pos 
sono essere effettuate in modo troncato. In pra 
tica ciò significa che si possono ricercare dei 


libri anche conoscendo solo una parte del tito 
lo o solo lo parte iniziale del nome dell'editore. 
Le applicazioni di questo programma abbon¬ 
dano: potrete usarlo per raccogliere gli articoli 
sulle riviste di informatica e fare poi delle facili 
ricerche sugli argomenti che interessano, po 
trete usarlo per evitare di comprare due libri 
che parlino dello stesso argomento ed in mille 
altri modi diversi. Iniziate quindi a catalogare 
i vostri libri c le vostre riviste e vedrete che il 
tempo che impiegherete in questo lavoro vi sarà 
abbondantemente ripagato in futuro. 


30 DIM N<j00>,AU*(300),T1*(300), 
PU*(300>,YR*C3G0),IS*<300),C 
A*(300) ,K1*<.300> ,K2*(300) ,K3 
*(300) ,L7.( 300 > , RX( 300 > ,87.(30 
0),R(100) 

135 Di * CHR* (4) 

140 PRINT D*|* OPEN LIBRERIA" 

150 CALL - 936 : INPUT "CREAZION 
E DI UNA NUOUA LIBRERIA ? <S 
/N) "|U*i 1F Gl* = “S" THEN 2 
1 2 

160 PRINT 0*;"READ LIBRERIA" 

1X0 INPUT Ri INPUT J 
180 FÙR I - 1 TO R 

185 INPUT N(I): INPUT AU*<l)i INPUT 
TI *< I>1 INPUT PU*< 1) 

190 INPUT YR*(l>: INPUT IS*<I)s INPUT 
CA*<I): INPUT LC*<I) 

192 INPUT K1 *(1)i INPUT K2*<I): INPUT 
K3* <I) 

194 INPUT L7.(l)l INPUT R7.< I ) 

200 NEXT I 
210 PRINT ()* 

212 CALI - 936 

215 X* = "L I fa R E R I A" i UTAB 

3 

217 PRINT TAU< 20 - < LEN (X*)) 

/ 2);X*: PRINT : PRINT i PRINT 


220 

PRINT 

TAB< 

10);"1 


2 IONE 

LIBRO" 


230 

PRINT 

TABC 

10) ;"2 


E TUTTI I LIBRI" 

240 

PRINT 

T ABC 

1 0 ) J "3 


ARE UN LIBRO 

■ 

245 

PRINT 

TAb< 

10) ; "4 


ARE LIBRO" 


250 

PRINT 

TmB< 

10) ; “5 


RE UN 

LIBRO" 



INTRODU 
ST AMPAR 
CANCELL 
MODIFlC 
RICERCA 


2*0 

PRINT 

TAB( IO);"6 - REGISTR 


»-.RE SU 

DISCO" 



262 

PRINT 

TAB( 10);"7 - FINE 

LA 


VORù" 




270 

PRINT 

: PRINT : PRINT 



275 

HTAB 10: UTAB 1B: INPUT 

"SCE 


LTA : 

* ,GQ 



280 

I F GQ 

< 1 OR QQ > 7 THEN 275 

290 

ÙN UO 

bOSUB 400,1000,2000, 

30 


00,4000,8000 , cJUUO 



300 

1F UG 

< > 7 THEN 212 



310 

END 




320 

i 




390 

i 




4U0 

Rem 




405 

X* * "1NTRGDUZI ONE LIBRO 

• 


410 

CALL 

- 936: PRINT TAb( 20 - 


< LCN 

(X*>) / 2);X*: PRINT 



PRINT 




420 

R =■ R ♦ 

1 ;J » J ♦ 1 



4 30 

I = 1 




4 35 

PRINT 

"NUMERO : "iJ 



440 

INPUT 

"AUTORE s " |Al *i 

1F 

LEN 


(Al*) 

< * 1 THEN 440 



450 

INPUT 

"TITOLO ; - |TI*i 

IF 

LEN 


(Tl*> 

( « l THEN 450 



460 

INPUT 

"EDITORE: ";P1*: 

1F 

LE/>4 


(PI*) 

< « 1 THEN 460 



470 

INPUT 

" ANI >10 : " | Y1 * i 

IF 

LEN 


(Yl*) 

< « 1 THEN 470 



480 

INPUT 

"N. R1F.: " ; I1*i 

IF 

LEN 


(11*) 

< = 1 THEN 480 



482 

INPUT 

"CAT N. i "jCl*: 

IF 

LEN 


(Cl*> 

< *= 1 THEN 482 



484 

INPUT 

"ARGON. : ";Ll*i 

IF 

LEN 


(LI*) 

( - l THEN 484 



490 

INPUT 

"DESCR 1i "jKA*: 

IF 

LEN 


(KA*) 

( 1 THEN 490 
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500 INPUT •DESCR 2: -|KB*i JF LEN 
CKB*> < 1 THEN 500 
510 INPUT “DESCR 3: “|KC*x IF LEN 
CKC*) < l THEN 510 
520 1F Al* > - AU*(I) THEN 730 

530 GOTO 580 

540 PRINT “PREMERE RETURN PER CO 
NT1NUARE- 

550 GET G* i IF Q* < > CHR* < 13 

> THEN 550 
5©0 RETURN 
570 i 
580 REM 

590 IF LXCI) < >0 THEN I - L%< 

I>i GOTO 520 
Ó10 LZ( I ) - J 
612 NCR) « J 
620 AU*CJ) * Al* 

630 TI*(J) « Tl* 

640 PU*(J> = PI* 

650 YR*< J) - Yl* 

652 IS*<J> » II* 

654 CA*( J> «* Cl* 

656 LC*< J) = Li* 

660 K1*CJ) = KA* 

680 K2*< J) = KB* 

690 K3*(J) - KC* 

700 LXCJ) =* 0 
710 R7.CJ) =* 0 
720 RETURN 
725 s 
730 REM 

740 IF RXC I ) < >0 THEN I =* RX< 

I>: GOTO 520 
770 RXCI) - J 
772 N(J) = J 
780 AU*< J) = Al* 

790 TI*(J) = Tl* 

800 PU*(J) = PI* 

810 YR*< J) » Yl* 

820 1S*CJ) - 11* 

824 CA*(J) = Cl* 

82ó LC*<J) = LI* 

830 Kl*( J) «= KA* 

840 K2*CJ) « KB* 

850 K3*(J) » KC* 

860 RX(J> = 0 
870 LX(J) = 0 
880 RETURN 
890 i 
1000 REM 

1010 P «= liT =* 0: CALL - 936 
1020 PRINT -'1' -> STAMPANTE 

'0' -> VIDEO -ji INPUT QQi 
IF ÙQ » 1 THEN PR# 1 
1030 CALL - 936 
1040 T « T ♦ 1 
1050 S7.<T> » P 

1060 IF P < >0 THEN P * L/.CP>| 

GOTO 1040 

1070 T » T - 1 

1080 IF T < =0 THEN QQ * 0 * PRW 

Oi PRINT -FATTO !“; PRINT i PRINT 
: PRINT -PREMERE 'C' PER CON 
TINUARE-i INPUT A*i Ir A* < 

> -C- THEN 1080 

1083 IF T < - 0 THEN RETURN 

1090 P » SXCT) 


1 100 

X* - "STAMPA DI TUTTI I 
! • 

LI BR 

1103 

i 

IF N(P) - 0 THEN 1 170 


1105 

IF DO 

* 0 THEN PRINT 

TABC 


20 - C 

LEN (X*)) / 2)jX* 

1 110 

PRINT 

l 


1112 

PRINT 

-N.ROi -jNC P) 


1115 

PRINT 

-AUT.i -;AU*(P) 


1118 

PRINT 

•TIT.i “ |TI*< P> : 

PRINT 


“EDIT: 

•;PU*(P) 


1 120 

PRINT 

"ANNO: -jYR*(P)i 

PRINT 


•RIF.i 

-|IS*<P> 


1 122 

PRINT 

“CAT.i *|CA*(P)i 

PRINT 


-ARG.i 

-}LC*<P) 


1125 

PRINT 

-DESI i "j K1*(P)i 

PRINT 


“DES2i 

- ;K2*< P) 


1130 

PRINT 

-DES3i -|K3*(P) 


1140 

PRINT 



1150 

IF ÙQ 

« 0 THEN PRINT * 

PREM 


ERE 'C' PER CONTINUARE -ji INPUT 
A*i IF A* < > -C- THEN 1150 


1 160 

CALL 

- 936 


1170 

T “ T 

- 1 


1180 

P = R*/.CP) 


1190 

GOTO 

1040 


1200 

» 

• 



2000 

REM 



2005 

RTEMP > 

«= OsLTEMP = 0 

2010 

CALL 

- 936 


20 20 

X* * - 

cancellazione libro- 

2030 

PRINT 

TA6< 20 - C LEN <X*> 


) / 2> 

;X*: PRINT : PRINT 

2040 

INPUT 

-NUMERO 

LIBRO DA CANC 


ELLARE 

i "INCOLTE) 

2042 

IF NCULTE) * 

1 THEN PRINT 


"non cancellabile m solo m 


ODIF1 CABILE-: 

GOTO 2310 

2050 

IF (NCDLTE) < 

1) OR CNCDLTE 


) > J) 

THEN PRINT "INESISTE 


NT E • • 

• ; GOTO 

2040 

2060 

INPUT 

\ \ 

-AUTORE 

i-;AU*CNC DLTE 

2080 

/ / 

PRINT 

: 1 = 1 


2085 

PRINT 

****** 

"itftftttttftft************* 

2090 

IF AU*(N< ULTE)) > AU*<I) THEN 


2360 



2095 

IF AU*<N(DLTE 

)) < AU*<I) THEN 


2340 



2096 

IF NCDLTE) < 

> NCI) THEN 2 


360 



2098 

PRINT 

•NUM. : 

- jNC I > 

2100 

PRINT 

-AUT. ; 

- ;AU*CI) 

2110 

PRINT 

-TIT. i 

- ;TI *< I ) 

2120 

PRINT 

• EOIT.i 

-|PU*(I) 

2130 

PRINT 

-*V>INO I 

“ ; YR*CI ) 

2140 

PRINT 

-RIF. i 

•| IS*<I ) 

2150 

PRINT 

-CAT. i 

- ;CA*Ci) 

2160 

PRINT 

• ARGOM ; 

- ; LC*CI ) 

2170 

PRINT 

-DES 1i 

• ; K1 *( I ) 

2180 

PRINT 

-DES 2i 

- |K2*<I) 

2190 

PRINT 

•DES 3* 

- |K3*CI ) 

2194 

PRINT 



2195 

PRINT 

• ****** 



«♦♦in#**#****#** ••n* 
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2200 PRINT : PRINT ; INPUT "SI C 
CJN FERMA LA CF*4CELLAZ l ONE ( S/ 
N) ? i ";A*i IF A* - -N- THEN 
2330 

2203 1F Al ( > -S* THEN 2200 

2206 i 
2208 : 

2220 IF RTEMP < > 0 THEN RX< RTE 

MP) - R7.(N(OLTE) ) I GOTO 2230 

2224 IF LTEMP < > 0 THEN LXYLTE 

MP) « LX<N<DLTE))2 GOTO 2270 


222o : 

2230 I « » 

2232 IF AU*<LX<N(DlTE>)> > - AU 

*<LX<I>) THEN 2242 
2234 REM 

2236 IF LX< I > < > 0 THEN I - LX 

<I)i GOTO 2232 
2238 REM 

2240 LX<1> - LX<N<DLTE> ) t GOTO 23 
00 

2242 REM 

2244 IF RX<1> < >0 THEN I = R7. 

<I): GOTO 2232 
2246 REM 

2248 RX<1> - L7.(N< DLTE) ) i GOTO 23 
00 


2250 : 

2252 : 

2270 I * 1 

2272 IF AU*(RX<N<DLTE))> > * AU 

*<I) THEN 2282 
2274 REM 

2276 IF LX< I ) < > 0 THEN I * L* 

<1): GOTO 2272 

2280 LX<1> = RX<N< DLTE) ) : GOTO 23 
00 

2282 REM 

2284 IF RX< I > < > 0 THEN I - RX 

<I)* GOTO 2272 
2286 REM 

2290 RX< I ) - RV.<NvDLTE> > : GOTO 23 
00 

2292 x 
2294 s 

2300 PRINT x PRINT : PRINT ML N 
LIMERÒ ** ;N( DLTE) ; " E' STATO C 
ANCELLATO* 

2305 R « R - 1 

2310 PRINT "PREMERE 'C' PER CONT 
INUARE-x INPUT A»x IF A* » * 
C- THEN 212 
2330 RETURN 
2332 : 

2334 x 
2340 REM 

2350 IF L7.<1) < >0 THEN IF L7. 

<I) < > N(DLTE) THEN I = L7. 

(Di GOTO 2090 

2351 IF LX<1) » N(DLTE) THEN LTE 
MP * III =■ L7.<I>i GOTO 2090 

2352 IF LX<I) * 0 THEN PRINT "I 
NESISTENTE ! !“ 

2353 i 

2354 s 


2355 PRINT "PREMERE 'C' PER CONT 
INUARE-: INPUT A* x IF A$ ■ ' 

C - THEN 212 

2356 x 

2357 x 
2360 REM 

2370 IF RX<I) < > 0 THEN IF RX 

<l) < > N<DLTE) THEN I » RX 

<I)x GOTO 2090 

2372 IF RX<1 ) - N(DLTE) THEN RTE 
MP - lxl • RX<1>* GOTO 2090 
2380 IF RX(I) - 0 THEN GOTO 235 
2 

3000 REM 
3003 REM 

3006 RTEMP - OxLTEMP - 0 

3010 CALL - 93o 

3020 X» « “MODIFICA LIBRO - 

3030 PRINT TAB< 20 - < LEN <X*) 

> / 2>;X*: PRINT : PRINT 
3040 INPUT “NUMERO LIBRO DA MODI 
F1 CARE i * jN< ED IT) 

3050 IF <N(EDIT) < I) OR <N< EDIT 
) > J) THEN PRINT “INESISTE 
NTE •?"» GOTO 3040 
3060 INPUT "AUTORE i -;AU*<N<ED1 
T) ) 

3080 PRINT xl * 1 

3090 IF AU*(N<£D1T)) > AU*<I> THEN 
3360 

3100 IF AU* < N( ED 1 T ) ) < A U*U> THEN 

334U 

3103 IF N< EDIT) < > N< 1 ) THEN 3 

340 

3105 REM 

3110 PRINT "PREMERE 'RETURN' PER 
NON MODIFICARE- 

3115 PRINT TAEK 15); - *##**«#««# 

■ 

3120 PRINT “NUMERO x - ;N<I) 

3130 PRINT “AUTORE i - ;AU*U ) 


3140 INPUT 
Ql* < 

* 

3150 PRINT 
3160 INPUT 
Ql* C 

* 

3170 PRINT 

3180 INPUT 
Ql* < 

* 

3190 PRINT 


-AUTORE MODI - |Ql*i IF 

> ■- THEN AU*<1> - Ql 

-T1TOLU i ** |T I*< I ) 
-TITOLO MOD: *{Ql*x IF 

> “" THEN TI*(I> - Ql 

-EDITORE x -|PU*<I) 

-EDIT. MOD.: - ;Ql*s IF 

> •- THEN PU*<l) - Ql 

“ANNO x “jYR* <I) 


3200 INPUT 
Ql* < 

* 

3210 PRINT 

3220 INPUT 
Ql* < 

* 

3230 PRINT 


-ANNO MOD. s - ;Ql* s IF 

> "- THEN YR*<I) - Ql 

"R1FERIM. i * j1S*<I) 

-RIF. MOD. x *|Ql*i IF 

> - - THEN 1S*(I) « Ql 

- CAT S ■ |CA* <I) 


3240 INPUT “CAT MGDIF.x “;Q1 *i IF 
Ql* < > -- THEN CA*(I) - Ql 

* 
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3250 

PRINT 

“ARGOM. 

: "|LC*(I) 

3260 

INPUT 

“ARGOM.MOC 

M “;Ql* : IF 


Ql* < 

> THEN 

LC*< I ) - Ql 


* 



3270 

PRINT 

“DESCR1 

: “;K1*( 1 ) 

3280 

INPUT 

“DESCR1 MOD: “;Ql*i IF 


Ql* < 

> ““ THEN 

Kl*< I ) » Ql 


* 



3290 

PRINT 

“DESCR2 

l ")K2*<1) 

3300 

INPUT 

“DESCR2 MOD: - ;Ql*i IF 


Ql* < 

> - “ THEN 

K2*<I) » Ql 


* 



3310 

PRINT 

"DESCR3 

i “|K3*(1) 

3320 

INPUT 

-DESCR3 MOD: - jQl*i IF 


Ql* < 

> ■* THEN 

K3*<1> • Ql 


* 



3330 

RETURN 


3340 

REM 



3350 

IF L7.< I ) < >0 

THEN I - LX 


<1) : GOTO 3090 


3360 

REM 



3370 

IF RX<1) < >0 

THEN I * RX 


<I): GOTO 3090 


3380 

PR1 NT 

- INES I STENTE !! - : INPUT 


“PREMERE 'C' PER 

CONTINUARE 


“ |C* : 

IF C* « “C“ 

THEN 3330 

3390 

• 

t 



4000 

REM 



4005 

QQ « 0 



40 10 

CALL 

- 936 



4020 X* =* “RICERCA LIBRO* 


4030 

PRINT 

ThB< 

20 - < LEN <X*> 


) / 2) ; 

X*: PRINT : PRINT 

4040 

PRINT 

TAB< 

10);"METODO DI 


SELEZIONE : - 

: PRINT 

4050 

PRINT 

TAB< 

12)j - 1..AUTORE - 

4060 

PRINT 

TaB< 

12);"2..TITOLU - 

4070 

PRINT 

M 

TAB( 

12);"3..EDITORE 

4075 

PRINT 

TO¬ 

TAB< 

12);"4..ARGOMEN 

4G8U 

PPI NT 
CERCA - 

TAB< 

12); - 5..FINE RI 

4085 

PRINT 

: PRINT 

4087 

P » 1 :T 

» 0 



4090 HTAB 10: VTAB 18: INPUT “SC 
ELTA : “;Q: IF<Q<DOR<Q 
> 5) THEN 4090 
4200 IF Ù * 5 THEN RETURN 
4210 PR1NT 

4220 INPUT "ELEMENTO DA RICERCAR 
E : "|Q1* 

4300 IF QQ - 0 THEN CALL - 936 

4310 PRINT "'1' PER STAMPARE 

0' PER VISUALIZZARE - : INPUT 
QQ: IF QQ « 1 THEN PR# 1 
4320 IF QQ - 0 THEN CALL - 936 

4330 T = T ♦ 1 
4340 SX<T> = P 

4350 IF P < >0 THEN P = LX<P> : 

GOTO 4330 


4360 T - T - 1 

4370 IF T < - 0 THEN CALL - 9 

361 PR# 0: PRINT “RICERCA CO 
MPLETATA “i PRINT : INPUT “P 
REMERE 'C' PER CONTINUARE “| 
A*: IF A» = -C“ THEN 4010 
4380 P » S7.<T) 


4385 

CJN Q GOTO 4600,4610,4620,46 
30 

4410 

IF QQ 
20 - < 

* 0 THEN 
LEN <X*>) 

PRINT TAB( 
/ 2)jX* 

4420 

PRINT 

: PRINT : 

PRINT 

4430 

PRINT 

“NUMERO 

: “ ;N( P> 

4440 

PRINT 

-AUTORE 

: - $AU*(P> 

4445 

PRINT 

“T1TLE 

: “ jT1*< P) 

4450 

PRINT 

“EDITORE 

: “|PU*<P> 

4460 

PRINT 

-ANNO 

: “|YR*< P) 

4470 

PRINT 

•RIFERIM 

: -;IS*CP> 

44B0 

PRINT 

-CAT 

i “i CA* < P) 

4490 

PRINT 

-ARGOMENTO 

: “;LC*< P) 

4500 

PRINT 

•DESCR 1 

: “|K1*< P): 


PRINT 

-DESCR 2 

: -;K2*<P> 

4510 

PRINT 

“DESCR 3 

: “|K3*< P) 

4520 

PRINT 

: PRINT » 

PRINT 

4530 

IF QQ 

- 0 THEN 

PRINT “PREM 


ERE 'C' PER U1S IL SUCCESSIV 
0 “i INPUT A*i CALL - 936: IF 
A* < > “C" THEN 4530 

4550 T - T ~ 1 
4560 P « RX< P > 

4570 GOTO 4330 

4600 IF RIGHT* <01*.1) « “?“ THEN 
IF LEFT* (Ql$,( LEN <Q1*) - 
i)> * LEFT* <AU*(P>,< LEN < 
Ql*> - 1)> THEN 4410 
4602 IF Ql * < > AU*<P> THEN 455 

0 

4605 GOTO 4410 

4610 IF RIGHT* < Q1 *,1> * “?“ THEN 
IF LEFT* <Q1*,< LEN <Q1*> - 
1>> = LEFT* < TI * < P ), < LEN < 
Ql*> - 1>) THEN 4410 
4612 IF Ql* < > TI*< P) THEN 455 

0 

4615 GOTO 4410 

4620 IF RIGHT* <Q1*,I> » “?“ THEN 
IF LEFT* (Qli,( LEN <Q1*> - 

1)) « LEFT* <PU*<P),< LEN < 
Ql*> - 1)> THEN 4410 

4621 IF Ql* < > PU*(P) THEN 455 

0 

4622 GOTO 4410 

4630 ZK* = LEFT* <Q1*,< LEN <Q1* 

) - 1)>:ZX* = LEFT* <K1*<P) 

, LEN <Q1*> - 1) 

4631 ZY* ~ LEFT* <K2*<P) f LEN <G 
1*) - 1>:ZZ* “ LEFT* < K3*< P 
), LEN < Ql*> - 1) 

4632 IF RIGHT* <Q1*,1) « “?“ THEN 
IF < ZK* « ZX*) OR < ZK* - ZY 

*> OR < ZK* » ZZ*) THEN 4410 

4634 IF < Ql* < > K1*< P)) AND <Q 

1* < > K2*(P)) FND < Ql* < > 

K3*< P)) THEN 4550 

4635 GOTO 4410 
8000 REM 

8010 PRINT D*|“DELETE LIBRERIA - 
8020 PRINT D*;“OPEN LIBRER1A - 
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8030 

PRINT 

D*|*WRITE LIBRERIA- 

8075 

PRINT LC*<I)i PRINT K1*<I> 

8040 

PRINT 

R: PRINT J 


8080 

PRINT K2S<I): PRINT K3S<I)i 

8050 

FOR I 

c 1 TO R 



PRINT L7.<1>: PRINT RX<I> 

8055 

PRINT 

N< I > 


8090 

NEXT I 

8060 

PRINT 

AU*<I>: PRINT 

TI*<l>i 

8100 

PRINT D*{"CLÙSE* 


PRINT 

PU*<I): 


81 10 

RETURN 

8070 

PRINT 

YR*(I): PRINT 

IS*<I>1 

8120 

: 


PRINT 

CA*<I) 


21 1 20 

PRINT *JN: * jJNt<I> 



Nipple 


Didattica del sort 




Il sor t è una tecnico di programmazione che 
organizza e memorizza le informazioni in or 
dine alfabetico o numerico. Vi permette di evi¬ 
tare di ordinare manualmente le informazioni 
prima di salvarle su disco o di doverle leggere 
da video, e diventa indispensabile quando si 
hanno centinaia o migliaia di dati da ordina¬ 
re. Il programma è un ausilio didattico che rno 
s tra il processo di sort mentre questo avviene, 
e permette così di capire meglio la tecnica di 
programmazione usata. 

Tra le operazioni del programma vi è anche 


UGO REM -MENU PRINCIPALE 

1120 11% - ">>> MENU PRINCIPALE < 
<<*iC « 4i C% (1) « * SORT VISU 
ALI ZZATO":C*<2> « •SORT NON 
VISUALIZZATO*iC*<3> » "LISTA 
Tù DEL SORT“:C*(4) ~ "FINE P 
ROGRAMMA* 


1 13U 

GOSUB 9200 


1 140 

ON K GOSUB 5000,7000,3000 
500 

.1 

1 150 

GOTO,1100 


1500 

REM - FINE PROGRAMMA 

— 

1510 

HOME : HTAB 15: VTAB Ibi 
"> FINE <- 

PRINT 

1520 

FOR X ( - 1 TO 10001 NEXT : 
20: END 

VTAB 

3000 

REM - LISTA IL SORT - 

— 

3010 

HOME : HTAB 3: INVERSE i 

PRINT 


“>> ROUTINE DI SORT SHELL/ME 
T7NER <<*;; NORMAL i PRINT 
* PRINT 


quella del sort visualizzato. Viene usata la tec¬ 
nica detta di 'Shell/Metzner'. Si sceglie tra una 
serie di disposizioni iniziali delle 26 lettere del¬ 
l'alfabeto e viene mostrato il procedimento di 
sort aggiornando continuamente le variabili del 
programma e mostrando ciascuna linea BA¬ 
SIC mentre questa viene effettivamente esegui¬ 
ta. È un metodo di apprendimento facile ed 
estremamente efficace e sarebbe bello veder¬ 
lo applicato a tanti altri algoritmi della program¬ 
mazione. 


3020 FOR X = I Tù 16: ON X GOSUB 
6210,Ò220, o230,6240,6250,626 
0,6270,6280,6290,6300,6310,6 
320,o330,6340,6350,6360 : PRINT 
i NEXT X 

3030 VTAB 20: HTAB 3» FLASH : PRINT 
" < PREMI UN TASTO QUALSIASI 

) "j: GET I*t NORMAL l RETURN 

5000 REM - SUPERV1SIQNA IL S 

ORT VISIBILE - 

5010 CLEAR : GOSUB 8100 

5020 GOSUB 8200 

5030 GOSUB 5200 

5040 GOSUB 5400 

5050 GOSUB 5100 

5060 GOSUB 5500 

5070 GOSUB 6900 

5080 GOTO 1100 

5100 REM - PAUSA INIZIALE — 

5110 FLASH : VTAB 23: HTAB 9: PRINT 
"PREMI UN TASTO PER INIZIARE 
" ; 


IO 











5120 GET I*t INVERSE :I* » STR* 
<SC)i VTAB 16: HTAB 30: PRINT 
* <VEL. «" ♦ 1* 4 ->-ji NORMAL 
: RETURN 

5200 REM -01 SEGNA LO SCHERM 

0 - 

5210 HOME i INVERSE 
5220 VL* « - - ♦ CHR* <10) ♦ CHR* 
< 8)iVMS « VL* ♦ VL* ♦ VL* ♦ 

VL* ♦ VL* ♦ VL* ♦ VL* ♦ VL* ♦ 
VL* ♦ VL*:VM* » VM* ♦ VM* 

5230 VTAB 1 : PRINT ■ 

VARIABILI 

M 

5231 VTAB 10: PRINT - 

STATISTICHE 


5232 VTAB 17: HTAB 2i PRINT Sl*| 

5233 VTAB 18: HTAB 2: PRINT SI*; 

523*4 VTAB 19» HTAB 2i PRINT SI*; 

5235 VTAB 20» HTAB 2» PRINT SI*; 

523ò VTAB 21 » HTAB 2i PRINT SI * ; 

5237 VTAB 22: HTAB 2i PRINT SI*; 

523B VTAB 23» HTAB 2i PRINT SI*; 

5240 VTAB 2» HTaB li PRINT VM* ♦ 

VL* ♦ - VTAB 2i HTAB 40: 

PRINT VM* ♦ VL* * * *;i NURMAL 

5250 VTAB 2: HTAB 3» PRINT " ( INT 

ERVALLO) - I 

» - ♦ RIGHT* <• - ♦ STR* < 

I> ,2) ; 

5260 VTAB 3» HTAB 3» PRINT “< FLA 
G A FINE PASSATA- F 

- " ♦ RIGHT* <■ - ♦ STR* 

<F),2>| 

5270 VTAB 4» HTAB 3: PRINT "<PUN 

TATORE PROGRESSIVO) - P 

« • ♦ RIGHT* C “ ♦ STR* 

(P) ,2) ; 

5280 VTAB 5» HTAB 3: PRINT "<SUB 

SCRITTO INFERIORE) - L 

* M ♦ RIGHT* <“ • ♦ STR* 

<L>,2>; 

5290 VTAB 6: HTAB 3: PRINT “(SUB 

SCRITTO SUPERIORE) - H 

« “ ♦ RIGHT* <• ■ ♦ STR* 

(H),2); 

5300 VTAB 71 HTAB 3: PRINT “(STR 
INGA INFERIORE)- A*(L) 

- • ♦ A*(L); 

5310 VTAB 8: HTAB 3: PRINT “(STR 
INGA SUPERIORE)- A*(H> 

- " ♦ A*(H>; 

5320 VTAB 9» HTAB 3i PRINT “(STR 
INGA TEMPORANEA)- T* 

« ■ ♦ T*j 

5330 VTAB 111 HTAB 3: PRINT * <N. 

DI STATMENT'ESEGUITI) — - 

• ♦ RIGHT* (“ • ♦ STR* 

(RS),3) ; 


5340 VTAB 12: HTAB 3: PRINT "(N. 

Di COMPARAZIONI FATTE) - - 

• ♦ RIGHT* (“ ■ ♦ STR* 

(RC) ,3) ; 

5350 VTAB 13: HTAB 3: PRINT "(N. 

DI SCAMBI FATTI) - - 

• ♦ RIGHT* C • ♦ STR* 

(RE),3); 

5360 VTAB 14: HTAB 3: PRINT “(N. 

DI POSTI TRA GLI ELEM.)- - 

■ ♦ RIGHT* (** - ♦ STR* 

( I ) ,3) ; 

5370 VTAB 15: HTAB 3i PRINT *(N. 

DI QUESTA PASSATA) - » 

• ♦ RIGHT* C ■ ♦ STR* 

(D),3); 

5380 INVERSE : VTAB 16: HTAB 2: PRINT 
SI*; 

5390 RETURN 

5400 REM - MOSTRA L' ALFABET 

0- 

5410 INVERSE i VTAB 18: HTAB 7: GOSUB 
9000: NURMAL : RETURN 

5500 REM - CONTROLLO DEL SOR 

T- 

5510 I « 26iV - li GOSUB 5800 

5520 I = INT (I / 2)iV » 2i GOSUB 
5800 

5530 V - 3: GOSUB 5800: IF I - 0 THEN 

RETURN 

5540 F - 26 - liV - 4i GOSUB 5800 

5550 P - liV - 5: GOSUB 5800 

5560 L - PiV - ói GOSUB 5800 

5570 H - L ♦ I :V « 71 GOSUB 5800 

558q V - 8i IF A*(L > < - A*(H) THEN 

SU* ~ “<SC. NRù) "i GOSUB 58 
00i GOTO 5640 

5585 V « 8i IF A*(L) ) A*(H> THEN 
SW* - "(Si SCAMBI0)"i GOSUB 
5800 

5590 T* - A*(L):V - 9; GOSUB 5800 

5600 A*(L) » A*(H):V - 10: GOSUB 
5800 

5610 A*(H) « T*:V « 11: GOSUB 580 
0 

5620 L - L - 1:V.= 12: GOSUB 5800 

5630 V ■* l'i» GOSUB 5800: IF L > 0 

THEN 5570 

5640 P * P ♦ liV * 14: GOSUB 5800 

5650 V = 15i GOSUB 5800: IF P > F 

THEN 5520 

5660 V - 16» GOSUB 5800: GOTO 556 
0 

5800 REM -MANUTENZ1 ONE GRAF 

ICO- 

5810 NORMAL : REM (CONTEGGIO S 
TATEMENTS) 

5820 RS = RS ♦ 1 : VTAB 11 : HTAB T 

h: PRINT RIGHT* (" • ♦ STR* 

(RS) ,3) ; 

5830 REM 

5840 ON V GOSUB 6010,6020 # 6030,6 
040,6050,6060,6070,6080,6090 
,6100,6110,6120,6130,6140,61 
50,61 60 









5850 

5860 

5900 

5910 

5920 

5930 

5935 

5940 

5970 

5980 

5990 

5995 

6000 

6010 

6015 
60 20 


€>025 

6030 

6040 

6050 

6060 

6070 


INVERSE : VTAB 23: HTAB 2: PRINT 
SI*: VTAB 23: HTAB 3i ON V GOSUB 
6210,6220,6230,6240,6250,626 
0,6270,6260,6290,6300,6310,6 
320,6330,6340,6350,6360 
NGRMAL : VTAB 24: HTAB 2: PRINT 
SI*;: VTAB 24: HTAB 3: ON V GOSUB 
6410,6420,6430,6440,6450,646 
0,6470,6480,6490,6500,6510,6 
520,6530,6540,6550,6560 : INVERSE 

REM - CONTROLLO STEP/VE 

LOCITA" - 

IF FL « 1 THEN 5970 

FOR X ° 1 TO S:SC * PEEK ( 

- 16364 >: POKE - 16368,0: IF 
SC > 127 THEN I* ® CHR* <SC 

- 126)i 1F I* ■ " ' THEN FL 
« 1 : GOTO 5970 

IF SC > 127 AND 1* * > * 1 * 

AND I* < « "9* THEN S » VAL 

<!*) * 2: GOTO 5980 
IF SC > 127 AND I* - "M* THEN 
CLEAR : GOTO 1100 

NEXT X: GOTO 5980 

VTAB 16: HTAB 30: INVERSE : 

PRINT ■ <STEP>“;i VTAB 16 
: HTAB 34: GET I*:: IF I* - 
> -1- AND I* < - -9- THEN 

S * VAL <I*> * 2:FL = 0 
IF FL - 0 THEN INVERSE i IF 
I* » > "1* AND I* < * “9- THEN 

VTAB 16: HTAB 30: PRINT “<V 
ELOC-" ♦ I* ♦ ■>■*| 

RETURN 

RETURN 

REM -AGGI ORNA LE VARIA 

BILI- 

NÙRMAL : VTAB 2: HTAB HTi PRINT 
RIGHT* C • ♦ STR* (I),2) 

|i RETURN 
STOP 

VTAB 2l HTAB HTi PRINT RIGHT* 

(• • ♦ STR* <I),2)|:D - D ♦ 

li VTAB 14: HTAB TNi PRINT RIGHT* 
<• • ♦ STR* (I),3); : GOSUB 670 

0: IF D < 5 THEN VTAB 15: HTAB 
TH: PRINT RIGHT* <" " ♦ STR* 

(D),3); : RETURN 
RETURN 
RETURN 

VTAB 3* HTAB HT: PRINT RIGHT* 

(• * ♦ STR* <F),2)}I INVERSE 

: VTAB 20: HTAB 2: PRINT SI* 
i: VTAB 20: HTAB <6 ♦ F): PRINT 
• *(FLAG)“ ; : NOKMAL i RETURN 

VTAB 4: HTAB HT: PRINT RIGHT* 

C * ♦ STR* (P),2);t INVERSE 
: VTAB 21: HTAB 2: PRINT SI* 

;: VTAB 21: HTAB <6 ♦ P): PRINT 
“* < P•P.)■; : NORMAL : RETURN 

VTAB 5: HTAB HT: PRINT RIGHT* 

<• - ♦ STR* <L),2)j: RETURN 

VTAB 6: HTAB HT: PRINT RIGHT* 

C - ♦ STR* <H),2); : RETURN 


6080 GOSUB 6600 :RC = RC ♦ 1: VTAB 
12: HTAB TH» PRINT RIGHT* ( 

* * ♦ STR* < RC),3);i RETURN 

6090 VTAB 9: HTAB HT: PRINT * • ♦ 

T*; : RETURN 

6100 VTAB 7: HTAB HT: PRINT “ * ♦ 

A*<L) ; : INVERSE : VTAB 17: HTAB 
6 ♦ L: PRINT A*(L>|i NORMAL 
: RETURN 

6110 VTAB 8: HTAB HT: PRINT ■ • ♦ 

A*< H); : INVERSE : VTAB 17: HTAB 
6 ♦ H: PRINT A*<H);i NORMAL 
:RE -* RE ♦ 1:: VTAB 131 HTAB 
TH: PRINT RIGHT* <• ■ ♦ STR* 

(RE),3);: RETURN 

6120 VTAB 5 : HTAB HT: PRINT RIGHT* 
<" " ♦ STR* (L),2)|i RETURN 

6130 RETURN 

6140 VTAB 4: HTAB HT: PRINT RIGHT* 
<" B ♦ STR* (P>,2>; : INVERSE 
: VTAB 21: HTAB 2: PRINT SI* 

VTAB 21: HTAB <6 ♦ P>t PRINT 

• * < P.P.)•I : RETURN 


6150 

RETURN 




6160 

RETURN 




6210 

PRINT 

-510 

I - 

26"|i RETURN 

6220 

PRINT 

•520 

I « 

INT <I / 2 > * 


; : RETURN 



6230 

PRINT 

-530 

IF 

I - 0 THEN RE 


TURN-|i 

RETURN 


6240 

PRINT 

-540 

F - 

26 - I"; : RETURN 

6250 

PRINT 

•550 

P - 

I•;i RETURN 

6260 

PRINT 

•560 

L - 

P"ii RETURN 

6270 

PRINT 

•570 

H - 

L ♦ I *11 RETURN 

6280 

PRINT 

•560 

IF 

A* <L> < - A* 

« 

< H) THEN 640-; 

: RETURN 

6290 

PRINT 

•590 

T* 

• A* < L)* | : RETURN 

6300 

PRINT 

•600 

A* 

<L> - A* <H)* 


; : RETURN 



6310 

PRINT 

•610 

A* 

< H) * T*-| i RETURN 

6320 

PRINT 

•620 

L - 

L - I•; : RETURN 

6330 

PRINT 

"630 

IF 

L > 0 THEN 57 


0 -|* RETURN 



6340 

PRINT 

•640 

P - 

P ♦ 1•;i RETURN 

6350 

PRINT 

•650 

IF 

P > F THEN 52 


0 * ; : RETURN 



6360 

PRINT 

•660 

GOTO 560*|i RETURN 

6400 

REM 

— 

COMMENTI ALLE LI 


NEE- 




6410 

PRINT 

■ PONE 

< I > ** AL MAX 


DEGLI ELEMENTI- 

; i RETURN 

6420 

PRINT 

• <1>/2 E 

/ L'INTERV.TR 


A GLI ELEMENTI" 

; : RETURN 

6430 

PRINT 

? 

•SE 

L'INTERVALLO-O.IL 


SOftT E' FINITO - ;: RETURN 
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6440 PR1NT "FLAG SEGNALA LA FINE 
DI QUESTO PASSO*ji RETURN 
6450 PRINT -RESETTA IL POINTER A 
INIZIO TABELLA*;: RETURN 
Ò4Ó0 PRINT *SUBSCRITTO INFERIORE 
* PUNTATORE-;i RETURN 
6470 PRINT -SETTA IL NUM. DI POS 
TI TRA GLI ELEM.*;: RETURN 
Ó480 PRINT -CONFRONTA I DUE ELEM 
ENTI-;: RETURN 

6490 PRINT -COPIA L'ELEMENTO BAS 

50 IN TEMP-;i RETURN 

6500 PRINT -MUOVE L'ELEM. SUPERI 
ORE NELL'INF.*;: RETURN 
6510 PRINT -COPIA TEMP NELL'ELEM 
ENTO SUPERIORE"|i RETURN 
6520 PRINT -SOTTRAE L'INTERVALLO 
DAL SUBSC.INFER."; : RETURN 

6530 PRINT -IF <L> PIU' DI 0 MUO 
VI L'INF.“JI RETURN 
6540 IF SW* - "CAMBI 0 “ THEN PRINT 

-P MINORE DI O-MUOVI AL PROS 
S. SUP•* ;i RETURN 
6545 PRINT “NON SCAMBIO-MUOVI AL 
PROSSIMO CAMPO -;i RETURN 
6550 PRINT -SE IL PUNTAT.SUPERA 
FLAG PASSATA OK*|: RETURN 
6560 PRINT “PASSATA NON COMPL.CO 
NFR. I PROSS.*ii RETURN 

6700 REM -MEMORIZZA IL RIS 

ULTATO DELLA PASSATA - 

6710 FOR X « 1 TO 261D*< D,X) - A 
*(X>: NEXT 
6720 RETURN 

6800 REM -AGGIORNA I POINTE 

R E LA TABELLA - 

6810 INVERSE i VTAB 19: HTAB 2i PRINT 
SI*; « VTAB 171 HTAB 2i PRINT 
SI*|i IF SC > i THEN VTAB 1 
8i HTAB 6 ♦ LXi PRINT A*(LX> 
il HTAB 6 ♦ HXi PRINT A*(HX) 

I 

6815 VTAB 17i HTAB 6 ♦ Li PRINT 
A*( L> | t HTAB 6 t Hi PRINT A* 

<H>ji VTAB 18: HTAB 6 ♦ Li PRINT 

• “ji HTAB 6 ♦ Hi PRINT ■ ■| 

6820 VTAB 19 a HTAB 2 - LEN < STR* 

<L)) ♦ Li PRINT “A*C ♦ STR* 

(L> ♦ •)•“»! HTAB 6 ♦ Hi PRINT 
“-A*(“ ♦ STR* <H) ♦ ; 

6830 VTAB 16i HTAB 3i PRINT SU*; 
i NORMAL 

6840 VTAB 7i HTAB HT ♦ 1 i PRINT 
A*(L)| 

6850 VTAB 6i HTAB HT * 1: PRINT 
A* < H)| 

6860 LX - LiHX » H: RETURN 

6900 REM - RISULTATI SULLO S 

CHERMO - 

6910 FLASH i VTAB 22i HTAB 4: PRINT 

* PREMI <RETURN> PER I DATI 
FINALI-ji GET I* 

6920 HOME i INVERSE i VTAB 4: HTAB 

51 PRINT * TABELLA ORIGINAL 

E DISORDINATA "i VTAB 5i HTAB 
5I PRINT * *|i FOR X » 1 


TO 26i PRINT D*(i,X)|i NEXT 
i PRINT • -; 

6930 VTAB 6: HTAB 5i PRINT “PASS 
*ii PRINT “(RISULTATI 
PASS) •; 

6940 FOR X = 2 TO 5: VTAB 5 ♦ Xi 
HTAB 5: PRINT • • ♦ STR* < 

X - 1) ♦ * -ji FOR Y - 1 TO 

261 PRINT D*<X,Y>|i NEXT Yi PRINT 
- "ii NEXT X 

6950 VTAB 111 HTAB 5: PRINT * 

(ORDINE FINALE TABELLA) 

* I 

6960 VTAB 15i HTAB 3: PRINT "N.T 
OTALE STATEMENTS ESEGUITI 
« • ♦ RIGHT* C “ ♦ STR* 

(RS),3)i 

6970 VTAB 16i HTA8 3i PRINT *N. 

TOTALE CONFRONTI ESEGUITI 
= “ ♦ RIGHT* C • ♦ STR* 

(RC),3); 

6980 VTAB 17: HTAB 3: PRINT “N. 

TOTALE DI SCAMBI FATTI 
« • ♦ RIGHT* C ■ ♦ STR* 

(RE),3)i 

6990 FLASH i VTAB 20: HTAB 5: PRINT 
• PREMI (RETURN) PER IL MENU 
'"il GET I*: NORMAL i RETURN 


7000 

REM -SUPERVI RORE NON 

IS1BILE -— 

V 

7010 

CLEAR i GOSUB 8100 


7020 

GOSUB 8200 


7030 

GOSUB 7200 


7040 

GOTO 1100 


7200 

REM -CONTROLLO NTS - 

— 

7210 

HOME i INVERSE 


7220 

VTAB 2: HTAB 6i PRINT “ 

> 


)> SORT-TEMPO REALE ((( 

■ 

7230 

VTAB 4i HTAB 6t PRINT " 

A 


RRAY ORIGINALE DISORD. “il VTAB 
5i HTAB 6i PRINT * “|i GOSUB 
9000i PRINT “ *i 

7240 VTAB 10i HTAB 6i FLASH i PRINT 
“ INIZIO SORT-PREMI (RETURN) 

“li GET I*i VTAB 10i HTAB ói 
INVERSE i PRINT “ INIZIO SO 
• RT-PREMI (RETURN) * ; 

7250 VTAB 9i HTAB 6i PRINT “ «#* 

• PARTITO **«• “| 

7260 * GOSUB 75001 VTAB 8i HTAB 6i 
PRINT “ FINITO 

• • | 

7270 VTAB 6i HTAB 6i PRINT ■ *|i 
GOSUB 9000i PRINT “ "i 
7280 VTAB 7i HTAB 6: PRINT “ 

ARRAY FINALE ORDINATA “i 
7290 FLASH i VTAB 12: HTAB 6i PRINT 
“ PREMI (RETURN)PER IL MENU 
“il GET I* 

7300 NORMAL i RETURN 
7500 REM — SORT NON TRAPAREN 
TE — 

7510 I - 26 

7520 I - INT (1/2) 

7530 IF I - 0 THEN RETURN 
7540 F - 26 - I 
7550 P - 1 
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LA TASTIERA CU^kk.- 
nel primo FASCICOLO 


w il iy»5 e i anno mondiale aena musica... 
preparati con 7 note Bit, la nuova, fantastica ope 
che in soli 15 fascicoli quattordicinali (ciascuno 
corredato da una cassetta software per Commod< 
ti insegna veramente la musica. 


Con 7 note Bit , porti in casa il tuo maestro personale 
di musica che ti introduce alla teoria e al lessico 
musicali, ti insegna e ti fa fare pratica sulla tastiera, 
seguendoti passo passo nelle lezioni ... senza mai 
annoiarti. 

E puoi suonare subito, con l'aiuto del software 
"interattivo" della cassetta e della speciale tastiera 
musicale per il tuo 64. 

7 note Bit trasforma il Commodore 64 in uno 
strumento musicale sofisticato ed entusiasmante. 


7 NOIE BIT: OGGI LA M 









































Il video del computer ti presenta tutto ciò che ti 
serve: un metronomo elettronico, il rigo musicale, 
la tastiera visualizzata con le note corrispondenti ai tasti 
...e potrai partecipare "dal vivo" alle session dei 
musicisti più famosi, suonando insieme a loro. 

Prenota in edicola 7 note Bit : una prestigiosa iniziativa 
editoriale nata dall'unione della esperienza informatico¬ 
divulgativa del Gruppo Editoriale Jackson 
con la competenza tecnico-musicale ^ lpl 1 - ^ 


più interessante che c'è: 
non perdere 
il primo numero. 

Pensa, compresa 
nel prezzo c'è anche 
la stupenda tastiera 
professionale per il 
tuo Commodore 64. 


'programma musicale' 


GRUPPO 

EDITORIALE 

JACKSON 


mm 


USKA SI IMPARA COSI. 

















































7560 

7570 

7580 

7590 
7600 
7ól 0 
7620 
7630 
7640 
7650 
7660 
7670 
8100 

81 10 

8120 

8130 

8140 

8150 


8160 

8170 

8200 

8210 

8220 


8230 

8240 

8250 

8300 

8310 

8320 

8400 

6410 

8420 

8430 

6500 

8510 

8520 


8530 

8600 


L - P 
H - L ♦ I 

IF A*<L> < - A*<H) THEN 76 

40 

T* - A*<L) 

A*<L) » A*<H) 

A*<H> » T* 

L ** L - I 

1F L > 0 THEN 7570 
P * P ♦ 1 

1F P > F THEN 7520 
GOTO 7560 
RETURN 

REM -»» INIZ1AL1ZZAZIONE 
VARIABILI 

DIM A*<26> ,B*<26) ,C*<26) ,D* 
<5,26) 

A* - "ABCDEFGHIJKLMNOPQRSTUV 
WXYZ * 

SI* - • 

TR* - ">>> SORT TRASPARENTE 

<<<" 

I - 01F - OiP - 01L - OiH - 
0 :RS - OiRC =■ 0iRE « OiD - 0 
ISC - 3i6 - SC * 2iSR* - ""i 
T* ^ ""i FOR X - 1 TO 26iA*< 

X) * NEXT 

HT - 37iTH - 35 
RETURN 

REM — MENU PER SELEZION 
E ALFABETICA 

TI* - ">>> MENU ALFABETICO < 

<<" 

C * óiCS(l) » 'IN ORDINE.... 

.. ALFABETICO"iC*<2) - "ORDÌ 
NE ALFABETICO INVERSO"iC*<3) 

- -ORDINE ALF.ROVESCIATO"iC 
*<4> • "LETTERE ALFABETO CAS 
UALI" iC*< 5) - -SCEGLI IL TUO 
ALFABETO"iC*(ó> - "RITORNO 
AL MENU'" 

GOSUB 9200» IF K - 6 THEN 1 
100 

ON K GOSUB 8300,8400,8500,8 
600,8700 
RETURN 

REM —- ALFABETO NELL'ARR 

AY 

FOR. X - 1 TO 26iA*<X > m MIO* 

(A*,X,1)i NbXT 
RETURN 

REM — REVERSE ALPFIABET - 

GOSUB 6300 1 FOR X - 1 TO 13 
ITE* - A*<X) 

A*< X) - A*< 27 - X)|A*< 27 - X 
) - TE*i NEXT 
RETURN 

REM — ALFABETO DISORDIN 
ATO — 

GOSUB 6300 

FOR X - 1 TO 26iY - INT < RND 
<1) * <27 - X>> ♦ XiTE* • A* 
<X)jA*<X) - A*<Y)iA*<Y) - TE 

* 

NEXT Xi RETURN 

REM —» LETTERE CASUALI - 


8610 FOR X - 1 TO 26iA*<X> - CHR* 
< INT < RND <1) # 26) ♦ 65)i 
NEXT 

8620 RETURN 

8700 REM ALFABETO A SCELTA 


8710 HOME i GOSUB 8300tPl » 1 
8720 VTAB 2: HTAB ót PRINT *SCEG 
LI L'ALFABETO DA ORDINARE"»t 

VTAB 3t HTAB 6« PRINT "- 

-• , , 

VTAB 4i HTAB ói PRINT "PREM 
1<RETURN> ALLA FINE"» 

8730 INVERSE i VTAB 10i HTAB 7: GOSUB 
9000i NORMAL i VTAB 15i HTAB 
7» PRINT "FRECCE SIN/DESTRA 
MUOVONO* ;i VTAB 17i HTAB 7i F*RINT 
"LE LETTERE DELL'ALFABETO";i 
VTAB 19i HTAB 3l PRINT “<SP 
AZIO) RITORNA AL MENU')"» 

8740 FLASH i VTAB 10i HTAB 6 ♦ P 

Il PRINT A*(Pl> »i VTAB 111 HTAB 
6 ♦ PIs PRINT ; i VTAB i2l 
HTAB 5 ♦ Pii PRINT " *"|i NORMAL 

8750 GET l*i IF I* - CHR* <13) THEN 
6810 

8760 IF I* - CHR* <32> THEN 110 
0 

8770 IF I* - > -A" AND 1* < - 

-Z- THEN A*(PI) - I*i FLASH 
i VTAB lOi HTAB 6 ♦ PIi PRINT 
A* < P1)»i VTAB 12i HTAB 5 ♦ P 
li PRINT " *"»i NORMAL : GOTO 
8750 

8780 IF I* - CHR* <8> AND PI > 

1 THEN INVERSE x VTAB 10i HTAB 
6 ♦ Pii PRINT A*<P1)|i NORMAL 
i VTAB 111 HTAB 6 ♦ PI I PRINT 
" "»i VTAB 12I HTAB 5 ♦ PIi PRINT 
" "»i FLASH iPl » PI - li VTAB 

lOi HTAB 6 ♦ PIi PRINT A*<R1 
)}i VTAB 111 HTAB 6 ♦ PIi PRINT 
"*"»i VTAB 12i HTAB 5 ♦ PIi PRINT 

• *"|i NORMAL i GOTO 8750 
8790 IF I* • CHR* <21) **ID PI < 

26 THEN INVERSE i VTAB 10i HTAB 
6 ♦ PI | PRINT A*< P1)| i NORMAL 

• VTAB 111 HTAB 6 ♦ Pii PRINT 

’ "|l VTAB 12l HTAB 5 ♦ PI| PRINT 

• "li FLASH IP1 - PI t li VTAB 
10» HTAB 6 ♦ PI| PRINT A*<P1 
>H VTAB 111 HTAB 6 ♦ PI i PRINT 
"“"»i VTAB 12i HTAB 5 ♦ Pi• PRINT 
" ‘"|l NORMAL I GOTO 8750 


8800 

GOTO 8750 


8810 

RETURN 



9000 

REM — 

MI 

MOSTRA ARRAY — 

9010 

FOR X - 
) | i NEXT 

1 

TO 26i PRINT A*(X 

9020 

RETURN 



9200 

REM 


SELEZIONE DEL MEN 

9210 

HOME 



9220 

HTAB 7i 

VTAB 2i PRINT TI* 

9230 

FOR X - 

1 

TO Ci VTAB <X » 2 


♦ 5)i HTAB 10: PRINT C*<X) i* 
NEXT 
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9240 OTAB 20i HTAB 5 i PR1NT •SCE 
GLI CON t <— E —>* 11 OTAB 2 
2: HTAB 6i PRINT -PREMI <RET 
URN> PER ESEGUIRE 1 * | 

9250 K - li UTAB <K * 2 ♦ 5) i HTAB 
10i FLASH i PRINT C$<1); 

92Ó0 GET Itti - ASC <l*)i IF 1 < 
> 13 AND I < >8 AND I < > 

21 THEN 92óO 

9270 1F I » 13 THEN GOTO 9320 


9280 OTA6 (K » 2 ♦ 5)i HTAB 10i 
NORMAL i PRINT C*<K>; 

9290 1F I « B THEN K - K - li IF 
K < 1 THEN K - C 

9300 IF I - 21 THEN K » K ♦ 1: IF 
K > C THEN K = 1 

9310 LHTAb <K * 2 ♦ 5)i HTAB 10 » FLASH 
i PRINT C*<K)ji GOTO 9260 
9320 NORMAL li - Oi RETURN 


Il poeta 


_ ^ TI-99/4A _ 

•MMMhKOUHRnnMKWU'. - " *■', ■ VMUOnNM 


Quanti tra noi hanno amato odiato, nel co* so 
dell'avventura scolastica, i letterati con tutti i 
loro prodotti più o meno poetici. 

Ebbene, ora avremo tutti l'occasione di poterli 
“imitare", o perlomeno di scimmiottare, serri 
pheemente digitando i! seguente listato in TI 
Basic e dando il Run. 

Il nostro TI. novello Montale, o Ungaretti, o 
Manzoni, o Pinco Pallino che sia. sfornerà inin¬ 
terrottamente un carme dopo l'altro finché non 
vi stuferete premendo "Function-4". 

Non rispondiamo ovviamente della qualità dei 
poemi “elettronici", ma non sempre le cose 
che leggerete saranno prive di significato: a voi 
te basterà variare qualche termine linguistico 
per trasformare dei termini senza senso in co- 

7 rem ************ 

8 REM * IL POETA * 

9 REM ************ 

10 REM TI-99 BASIC 

11 CALE CLEAR 

12 CALE SCREEN(IO) 

15 RANDOMIZE 

20 DATA IL,GRANDE,AZZURRO,MARMOR 
EO,SCORRE,DOLCEMENTE,SULLA SABBI 
A 

30 DATA MENTRE,ALLEGRO,VERDE,GIG 
ANTE,MANGIA,CORDIALMENTE,SUL COL 
LE 

40 DATA E,AMICHEVOLE,VECCHIO,RAG 
AZZO,INDOSSA,BENE,QUANTO INVECCH 
IA 

50 DATA OPPURE,DURO,PLASTICO,CUS 
TODE,ULTIMO,TENACEMENTE,PER SEMP 
RE 


se dense di significato (p- • .. . . .c 

cosa suggerisce divetse sensa/,un a seconda 
deli ascoltatore). 

Insomma. questo è un programma rivolto in 
particolare a: 

m parolieri di complessi rock-demenziale (i ri¬ 
sultati sono garantiti!); 

* aspiranti poeti in disaccordo con la musa ispi¬ 
ratrice (con “il Poeta" le idee, saranno Tuni¬ 
ca cosa a non scarseggiare); 

o più semplicemente a coloro che vogliono 
utilizzare il TI per farsi un sacco di risate (ed 
avranno risultati eccezionali!!). 

Detto questo, buona digitazione e. soprattut¬ 
to. buone "ghignate"! 


60 DATA QUANDO,CHIOMATO,MINUTO,C 
ANE,CAMMINA,RUVIDAMENTE,NELLA NO 
TTE 

70 DATA DA,OPULENTO,ROSSO,PACCO, 
PARLA,FELICEMENTE,DALLA VALLE 
80 DATA PER,VIVACE,MEDIO,POPOLO, 
SOLCA,DOLCEMENTE,TRA LE NUBI 
90 DATA IL,GRAZIOSO,OPPORTUNO,AM 
ANTE,VOLA,PERDUTAMENTE,SUL TERRE 
NO 

100 DATA INTANTO,TRISTE,GIOVANE, 
GATTO,Ci GOLA REALMENTE,DIETRO IL 
GRANAIO 

110 DATA DA,STANCO,POVERO,BEVITO 
RE,ILLUMINA,CHIARAMENTE,NEL TEGA 
ME 

120 DATA CI RCA,STRETTO,CALVO,AMI 
CO,GIOVA,RUMOROSAMENTE,NEL RECIN 

TO 


17 












130 DATA IL,PIEGATO,ACCESO r CONTA 
DINO, INVI A,GAIAMENTE,PROPIZIO AL 
NOSTRO VIVERE 

140 DATA E,IRREGOLARE,BUIO,SEGUA 
CE,DA’APPUNTAMENTO,DOLCEMENTE,VI 
CINO A UN ALBERO 

150 DATA COME,OPPORTUNO,ROTONDO, 
RELIGIOSO,S EGUE,CI EOAMENTE,SOTTO 
IL CONDOTTO 

160 DATA MENTRE,SGRETOLATO,MASSI 
CCIO,MONUMENTO,INNALZA,UMIDAMENT 
E,NEL GUSCIO 

170 DATA E AUREO,ARGENTEO,CORPO, 
RUOTA, UBERAMENTE, NEL VENTO 
180 DATA MENTRE,NUDO,INCISO,FIOR 
E,S'INFIAMMA,ACUTAMENTE,DA UN MO 
NTE 

190 DATA DOVE,SCINTILLANTE,BASSA 
,UOMO,LOTTA,GENEROSAMENTE,VERSO 
LA MORTE 

200 DATA E,FRESCO,NUOVO,ANTICO,R 
ENDE UMANO,SFACCIATAMENTE,PER IL 
RESTO 

300 GOSUB 1200 
330 FOR L-1 TO R 
340 READ V$ 

350 NEXT L 
360 RESTORE 
400 GOSUB *1200 
430 FOR L=* 1 TO R-l 
440 READ W$ 

450 NEXT L 
460 RESTORE 
500 GOSUB 1200 
530 FOR L*1 TO R-2 
540 READ X$ 

550 NEXT L 
560 RESTORE 
600 GOSUB 1200 


6 3U 

FOR L=1 

TO 

R- 3 

64U 

Ri.AD Y$ 



6 50 

NEXT L 



660 

RESTORE 



700 

GOSUB 1200 


730 

FOR L-1 

TO 

K-4 

74 0 

READ Z$ 



750 

NEXT L 



760 

RESTORE 



800 

GOSUB 1200 


830 

FOR L*1 

TO 

R- 5 

840 

READ A$ 



850 

NEXT L 



860 

RESTORE 



900 

GOSUB 1200 


930 

FOR L=ì 

TO 

R- 6 

940 

READ B$ 



950 

NEXT L 



960 

RESTORE 



1 000 

D- D* 1 




1010 IF INT(D/2)—(D/2)THEN 1030 

1 020 PRINT A$; M '• ; Y$ 

1025 GOTO 1040 
1030 PRINT tì$ ; n 
Y$ 

1040 IF INT(D/2)=(D/2)THEN 1085 

1080 GOTO 1090 
1085 PRINT 

1090 IF D<I2 THEN 300 

1110 PRINT 

1120 PRINT 

1l30 GOTO 300 

1 200 R= INT ( 1 33*RND) 

1210 IF R<7 THEN 1200 

1220 IF INT(R/7)<>(R/7)THEN 1200 

1230 RETURN 


Codice morse 


TI-99/4 A 


Questo è un listato in Basic molto semplice e 
breve ma che vi darò modo di apprendere a 
menadito quel linguaggio Morse che è allo 
se della escalation verso la trasmissione-dati Or 
iniziò con l'avvento del telegrafo. 

Il menu principale vi offrirà la possibilità di im¬ 
parare il codice partendo dai numeri, dall'al¬ 
fabeto oppure chiedendo voi stessi la traduzio¬ 
ne in codice Morse di una lettera o di un nu¬ 
mero. 


Addirittura, volendo, potrete tentare di rispon¬ 
dere a dei quiz basati sulla traduzione in let 
lere o numeri delle convenzioni Morse propo 
s levi di volta in volta dal vecchio TI. 
Logicamente ogni lettera o numero verrà visua¬ 
lizzata nella versione Morse sotto forma sim¬ 
bolica (punto/lmea). ma anche sonora (suono 
breve/lungo). 

Insomma, anche questo programma riuscirà a 
divertirvi. 
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100 CALL CLEAR 

105 CALL SCHERNI12) 

110 PRINT TAB(5);"*»•*•*******•* 
**» 

120 PRINT TAB(5); " * CODICE MORSE 

* » 

130 PRINT TAB (5) ;•'*»»**•******** 
• • • • 

140 CALL CHAR(37 , "3C7EFFFFFFFF7E 
3C" ) 

150 CALL CHAR(38,"OOFFFFFFFFFFFF 
") 

160 DIM Mv(35),N(35) 

170 FOR A-0 TO 35 
1 80 READ M$(A) 

190 NEXT A 

200 DATA bbbbb,‘à&&b6,'ft*&bb,V4%b6 
iMtlk 

2)0 ua’J’a ièui,irtu l i.au / i»6«.vt 

, b b b b 4 

220 DATA U i, lUl 

, & b % 

230 DATA tilt, 

b , b % 

24 0 DATA {.U,Ua < UU,Ul < U« / i 
0 'i'i -bn 

250 DATA 'il tu , Ibb , & Vii , b %bb , U l\ 

260 PHINT "SCEGLI:" 

270 PRiNT :TAB(5);"1 NUMERI" 

2HU PRINT :TAB(5);"2 ALFABETO" 
290 PRINT :TAB(5);"3 PREMI UN TA 
STO" 

300 PRINT :TAB(5);"4 UUIZ" 

310 PRINT :TAB(5);"5 FINE PROGRA 
MMA": : : : : 

320 CALL KEY( 0 , K , S) 

330 IF (K<49) -f (K>53) THEN 320 
340 CALL CLEAR 
345 CALL SCREEN(9) 

35U ON K- 4 8 GOTO 560,680,800,970 
, 1 500 

360 FOR J = 1 'rO LEN (M$ ( I) ) 

370 A$-SEG8(MS(I),J,1) 

380 1F A$="i" THEN 420 
390 CALL SOUND(300,131,0) 

400 PRINT "bbb "; 

410 GOTO 440 

420 CALL SOUND(60,131,0) 

430 PRINT "1 "; 

440 CALL SOUND(l,9999,30) 

450 NEXT J 
460 PRINT :: 

470 RETURN 
480 FOR D-l TO 200 
490 NEXT D 
500 RETURN 

510 PRINT -."PREMI < ENTER> " ; 

520 CALL KEY(0,K,S) 

530 IF KOI 3 THEN 520 

540 CALL CLEAR 
545 CALL SCREEN(5) 

550 RETURN 

560 PRINT TAB(7);"* * NUMERI **": 

• 

• 

570 FOR 1=0 TO 9 

580 PRINT TAB(4); I ;" "; 

590 GOSUB 360 


600 GOSUb 480 

610 CALL KEY(0,K,S) 

620 IF KOI 3 THEN 650 

630 CALL CLEAR 

635 CALL SCREEN(13) 

640 GOTO 260 
650 NEXT I 
660 GOSUB 510 
67C GOTO 260 

680 PRINT TAB(6) ;"* * ALFABETO ** 
• • • 

690 FOR 1*10 TO 35 

700 PRINT TAB(4);CHRv(55+I);" " 

• 

710 GOSUB 360 
720 GOSUb 480 
730 CALL KEY(0,K,S) 

74 0 IF KOI i THEN 770 

750 CALL CLEAR 

755 CALL SCREEN(15) 

760 GOTO 260 
770 NEXT I 
780 GoSUB 510 
79u GOTO 260 

800 PRINT " PREMI UNA LETTERA O 
NUMERO:": : 

810 PRINT "TI VERRÀ' DATO IL SUO 
CODICE" 

820 PRINT " PER TORNARE AL MENU 

•i 

830 PRINT " PREMI <KNTER>.": 

• • 

• • 

840 CALL KEY(0,K,S) 

850 IF KOI 3 THEN 880 

860 CALL CLEAR 

865 CALL SCREEN(11) 

870 GOTO 260 

880 IF K< 48 THEN 840 

890 IF K>57 THEN 920 

900 I -* K- 4 8 

910 GOTO 940 

920 IF (K<6S)♦(K>90)THEN 840 


Guida per l’input dei 
programmi sul TI 99/4A 

A cousa del sistema di codifico utilizzato, 
possono capitare in alcune linee delle im¬ 
provvise “andate a capo" delle quali, natu¬ 
ralmente, non va tenuto conto in fase di digi¬ 
tazione. 

Vi potrà capitare, a volte di trovare nei listati 
di programmi per TI 99/4a alcuni caratteri 
sottolineati. La sottolineatura rappresenta 
una particolare codifica dei tasti di controllo: 
dovrete quindi premere il tosto indicato dal 
carattere insieme al tasto CONTROL. 

Ad esempio, se trovate £. dovrete battere 
CONTROL + A; se trovate —, dovrete battere 
CONTROL + SPAZIO, e così via. 
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930 I = K-55 

940 PHINT CHK$(K);" "# 

950 GOSUB 360 
960 GOTO 840 

970 PRINT "**QUIZ CODICE MORSE* * 

ii 

980 PRINT ::"ASCOLTERAI E VEDRAI 

•I 

990 PRINT : " 1 L CODICE MORSE PER 
UNA< " 

1 000 PRINT LETTERA O NUMERO. 88 
1010 PRINT :"PREMI LA TRADUZIONE 

ii 

1020 PRINT <ENTER>PER TERMI 

NARE " 

1030 PRINT " E TORNARE AL MENU. 

t« 

1040 PRINT :: 

1050 EOR 1=0 TO 35 
1060 N(I)* 1 
1070 NEXT I 
1080 G=0 

1090 PRINT ::"PREMI <ENTER> PER 
PARTIRE": : : 

1100 CALL KEY(0,K,S) 

1110 IP S<1 THEN 1100 
1120 RANDOMIZE 
1130 POR Z*0 TO 3 5 
1 l40 I=INT(3b * RND) 

1150 IP N(I)=0 THEN 1140 
1160 IP I>9 THEN 1 190 
1170 L-I♦4 8 
1180 GOTO 1200 
1 190 L=I + 55 


1200 GOSUB 360 
1210 G=G+1 

1 220 CALL KEY( 0 , K , S ) 

1 230 IP KOI 3 THEN 1 260 
1240 CALL CLEAR 
l 24 5 CALI. SCREEN ( 4 ) 

1250 GOTO 260 

1 260 IP K< 48 THEN 1220 

1270 IP K< 58 THEN 1290 

1280 IP (K<65)+(K>90)THEN 1220 

1290 CALL HCHAR( 2 2,2 8 , K ) 

1300 IP K = L THEN 1350 
1310 CALL SOUND(80,330,2) 

1320 CALL SOUND(80,262,2) 

1330 GOSUB 480 
1340 GOTO 1200 
1350 CALL SOUND(100,262,2) 

1360 CALL SOUND (100,330,2) 

1370 CALL SOUND(100,392,2) 

1380 CALL SOUND(200,524,2) 

1390 CALL SOUND(l ,9999,30) 

1400 N(I)=0 
1410 NEXT Z 

1 420 PRINT : : :"SU 36 TENTATIVI S 
U " 

1430 PRINT "NUMERI E LETTERE NE 
HAI" 

1440 PRINT "AZZECCATI ";G::: 

1450 POR 1=1 TO 25 

1460 CALL SOUND (-99,1NT(400*RND) 

■♦'500,2) 

1470 NEXT I 
1480 GOSUB 510 
1490 GOTO 260 
1500 END 


Boxe 



Questo programma piacerà molto a chi ama 
la boxe e a chi non la ama a causa della vio¬ 
lenza che caratterizza la 'nobile arte': infatti 
vi garantiamo che i pixel non sentono alcun do¬ 
lore! Tirate dunque i vostri pugni con tutta la 
violenza che volete: il vostro S pectrum se la ri¬ 
derà comunque. Spazzato il campo dai pro¬ 
blemi morali, passiamo a vedere il funziona¬ 
mento del gioco. 

Innanzitutto battete e salvate il listato I con 
SAVE “bOXE/l " LINE 100: verificate e poi da¬ 
te NEW: quindi salvate il listato 2 con SAVE 
“BOXEJ2" LINE I. 

Caricate ora il programma dall'inizio: il primo 


programma (carica UDG) caricherà il secon¬ 
do. A questo punto vi troverete su una delle 
più prestigiose pedane del mondo, pronti a sfi¬ 
dare 9 avversari per giungere alla finale del 
Campionato del A/l ondo. Ricordate sin d'ora 
che basta una sola sconfitta per interrompere 
la fase di qualificazione e dover ricominciare 
tutto daccapo! 

Durante l'incontro, giocato su un numero di 
round deciso dall’utente, usqte i tasti ‘5’ e ‘8’ 
per spostarvi a destra e sinistra, i tasti '6' e 
7* per impostare la posizione di guardia bas¬ 
sa o alta, il tasto * / ’ per sferrare il pugno quan¬ 
do la guardia è alta. 2' quando la guardia è 
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bassa. Sulla parte bassa del display sono mo¬ 
strati i round, il tempo, e tutti gli elementi re¬ 
lativi ai due pugili (nome, round vinti, punti nel 
round, forza). Quando uno dei due pugili è in 
vantaggio nel round, esso viene indicato tra¬ 
mite una freccia gialla nella parte alta dello 
schermo. Sotto il profilo della tattica è neces 
sano tenere d'occhio la forza del pugile, che 
diminuisce rapidamente in relazione ad ogni 


programma I 


1 REM BOXE (LISTATO 1) 

100 BORDER 0: PAPER 0: INK 6: 

BRIGHT 1 : FLASH 1 
200 CLS 

500 PRINT AT 10,0; FLASH 1 ; "FERMA IL 
NASTRO UN MOMENTO lI11I M 
1000 CO SUB 3000 

1500 FLASH 0: PAPER 6: BRIGHT 1; 

INK 0: CLS 

1900 PRINT AT 10,0;"FAI PARTIRE IL NA 
STRO ADESSO l II(Carico il prò 
granuna principale)" 

2000 LOAD "" 

2500 STOP 

3000 FOR 3-144 TO 164: BEEP . 4 , - 1 4 0-#- ( 
j*l.2): FOR k-0 TO 7: BEEP .002, 
40+(k*2): READ n: POKE USR 
CHR$ NEXT ki NEXT j 

3100 RETURN 

3200 DATA 60,126,106,97,98,102,36,36 
3300 DATA 48,68,163,191,131,255,132,1 
32 


programma I 


1 MORDER 0: PAPER 1: BRIGHT 1: 

. INK 6: CLS : LET c£*9: REM BOXE 
/2 (LISTATO 2) 

2 LET time*0: LET x*7: LET y*l 6 

3 LET round*l: LET asc-0: LET bsc* 

0 

5 LET yrwin*0: LET brwin*0: LET yr 
ì;c*0: LET brsc-0 

6 l.ET ydef*0: LET punch*0: LET hit 
-0: LET arm*0: LET barralo 

8 LET bi*0 : LET di*0 

9 PRINT AT 11,13; FLASH 1 ;"UBOXET" 
: PAUSE 50 

10 CLS : LET a-7: LET b«l 1 

11 INPUT INVERSE 1; INK 3;"Quanti 
Rounds (1-15)? "; rn 

12 IF rn>l5 OR rn<l THEN BEEP 1,-2 
0 : GO TO 1 1 

15 LET ystm*rn*10: LET batra*rn*20 
20 INPUT INVERSE 1; INK 2;"IL TUO 
NOME ? (<14 lettere) ";a$ 


sforzo compiuto: rimanere a forza zero signi¬ 
fica perdere l'incontro (o subire un K.O.). Pro¬ 
babilmente è possibile conseguire risultati sod¬ 
disfacenti selezionando incontri brevi (un solo 
round), cercando di colpire l'avversario rapi¬ 
damente, per poi ritirarsi in un angolo al ripa¬ 
ro dall'attacco dell'altro. In ogni caso diffidate 
del vostro Spectrum: vi garantiamo che è un 
osso veramente duro! 


3400 DATA 132,252,252,164,164,164,252 
,72 

3500 DATA 72,72,112,112,80,80,124,126 
3600 DATA.0,0,0,112,143,1,31,224 
3700 DATA 0,0,0,56,248,120,248,192 
3800 DATA 60,126,86,134,70,102,36,36 
3900 DATA 20,34,197,253,193,255,33,33 
4000 DATA 33,63,63,37,37,37,63,18 
4100 DATA 18,18,14,14,10,10,62,126 
4200 DATA 0,0,0,14,241,64,248,7 
4300 DATA 0,0,0,28,31,30,15,3 
4400 DATA 24,36,24,60,126,255,126,24 
4500 DATA 16,108,199,224,96,255,124,0 

4600 DATA 31,32,248,71,128,255,32,31 
4700 DATA 0,240,127,121,241,17,241,25 
5 

4800 DATA 8,54,227,7,3,255,62,0 
4900 DATA 248,2,31,116,1,255,2,248 
5000 DATA 0,15,247,151,31,17,31,255 
5100 DATA 0,16,48,127,255,127,48,16 
5200 DATA 0,8,12,254,255,254,12,8 


22 IF LEN a$>14 THEN GO TO 20 
25 INPUT INK 6; INVERSE l;"NOME AV 
VERSARIO ? (<14 lettere) ";o$ 

27 IF LEN o$>14 THEN GO'TO 25 
30 FOR £*12 TO 21: PRINT AT f,0; 

INK 0;" 

": NEXT f 

50 PRINT AT 1,0; INK 0;"(32SG8}" 

60 PRINT INK 7; PAPER 2 ;AT l,l;a$; 
AT 1,17;o$ 

70 POR f*6 TO 11 : PRINT INK 7;AT f 
,3;"IG5)";AT f,28;"{SG5}": . 

NEXT f 

80 PRINT INK 4 ;AT 11,3;"{SG4) 
l24G3}{G7}" 

90 PRINT INK 0;AT 13,9;"{SG8)"; 

AT 13,29;"{SG8)";AT 17,8;" 
i2SG8}";AT l7,29 ;"(SG8}";AT 19,8 
; »{2SG8 ì";AT 19,27 ;"{3SG8}" 

100 PRINT INK 2;AT a,b;"A" 

110 PRINT INK 3 ;AT a+l,b;"B" 
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120 PR1NT INK 4 ;AT a+2,b;"C" 

125 PRINT INK 3;AT a+3,b; M D" 

200 PRINT AT x,y;"G" 

210 PRINT AT x + 1, y ; M H" 

220 PRINT AT x+2,y;"I/' 

230 PRINT AT x+3,y;"J" 

300 PRINT AT 20,8; PAPER 6; INK 0 ; "C 
OMBATTIMENTO: "; et 
500 IF cf< 2 THEN PRINT AT 0,0; 

INVERSE 1; INK 3;"* FINALE CAMP 
IONATO DEL MONDO *" 

510 PRINT PAPER 0 ;AT 15,0 ;"R/punti* 
";yrsc; M ";AT 15,20;"R/punti=";b 
rsc;" 9 

520 IF cf>l THEN PRINT INK 5;AT 0, 
0; INVERSE 1;"* QUALIFICAZIONE A 
L CAMPIONATO * M 

530 PRINT PAPER 0 ; AT 17,0 ;"FORZA 3 "; 
ystro;" " » 

540 PRINT PAPER 0 ;AT 17,20 ;"FORZA*" 
;bstm;" " 

550 IF ystm<0 AND bstro>0 THEN 
GO TO 7500 

555 IF bstm< 0 AND ystm>0 THEN 
GO TO 7540 

560 PRINT PAPER 0;AT 19,0;"TEMPO*"; 
time;" M 

570 PRINT PAPER 0 ;AT 19,20;"ROUND*" 
; round 

580 PRINT INK 2; PAPER 6; INVERSE 1 
;AT 21,30;;AT 21,0;"***INCON 
TRO SULLE ";rn;(" M AND rn<10); 
" RI PRESE* *••• 

590 PRINT PAPER 0 ;AT 13,0 ;"R/vinti- 
M ;yrwin;AT 1J,20;”K/vinti- M ;brwi 
n 

600 LET r*- INT (RND* 5) 

610 IF b<y-2 AND r*l THEN LET y-y-1 
: PRINT AT x,y;" ";AT x+l,y; H 

" ; AT xf2,y;" " ; AT x+3,y;" " : 

GO TO 620 

620 IF y<27 AND r-3 THEN LET y-y+1: 
PRINT AT x, y-2 ; M M ;AT x+l,y-2; 
" " ; AT x+2,y-2; u M ; AT x+3,y- 

2 ; m • .. 

1000 IF INKEY$*"1" AND arm*1 THEN 
LET ystm*ystm-1 : GO SUB 5060 
1010 IF INKEY$-"2" AND arra a 2 THEN 
LET ystm*ystm-1 : GO SUB 5090 
1 020 IF IN KK Y$ 3 " 6 " THEN LET arm=2: 

LET ydef*2 : GO SUB 5130 
1 030 IF INKKY$ 3 "7" THEN LET arm=1: 

LET ydef*1 : GO SUB 5150 
2010 IF INKEY$- M 5" AND b>4 THEN 
GO SUB 5000 

2020 IF INKEY$="8" AND b<y-2 THEN 
GO SUB 5030 

2900 IF round>rn THEN GO TO 7000 
3000 LET barm-INT (RND*3) 

3010 IF barm-2 AND punch-1 THEN 
GO SUB 6000 

3020 IF barm*l AND punch-2 THEN 
GO SUB 6090 

3025 LET bdef = INT (RND* 3) 

3030 IF bdef«2 THEN LET punch=l: 

LET hit=2: GO SUB 6030 
3040 IF bdef = l THEN LET punch = 2: 

GO SUB 6060 


3050 IF bdef-1 THEN LET hit=l 

4000 PAUSE 10: LET time=time+1 

4001 IF asc>bsc THEN PRINT AT 5,1; 

INK 6;"U";AT 5,30;" " 

4002 IF bsc>asc THEN PRINT AT 5,30; 

INK 6;"T";AT 5,1;" " 

4010 IF time>=»70 THEN PRINT AT 1,13; 
FLASH 1;" {SG8}M{SG8}": BEEP .1, 
30: BEEP .1,20: BEEP .1,30: 

BEEP .1,20 

4015 IF time>*70 THEN POR f*0 TO 50: 

BEEP .1,f: NEXT f 1 
4020 IF time>=70 THEN LET time=0: 

LET round«round+l: LET b*16: 

LET y=l7: GO SUB 4040 
4025 IF round>rn THEN GO TO 7000 
4035 GO TO 4100 

4040 IF yrsc>brsc THEN LET yrwin*yrw 
in+1 

4050 IF brsc>yrsc THEN LET brwin-brw 
in-*-l 

4060 IF yrsc=brec OR brsc-yrac THEN 

LET brwin*brwin+l : LET yrwin-yr 
win-t-1 

4070 LET yrsc-0: LET brac-0 
4075 CLS : GO TO 50 
4080 RETURN 
4110 GO TO 100. 

5000 LET b=b-1 

5001 PRINT AT a,b;" "; AT a+!,b; N 

";AT a + 2,b;" ";AT a^3,b;" " 

5010 LET St 3 INT (KND* 3) 

5011 IF at»2 THEN LET ystm-ystm-1 
5020 RETURN 

5030 LET s t*INT (KND * 3) : LET b-b+1: 

IF st=l THEN LET ystm«ystm-1 

5031 PRINT AT a , b- 1 ; " " ; At a-*l,b-l;" 

";AT a+2,b-1 ; " ";AT a+3,b-l 

. M H 

5050 RETURN 

5060 PRINT INK 3 ; AT a,b*fl;"E"; INK 2 
;AT a,b+2;"F";AT a+l,b;"B " 

5065 IF b 1 2*y ANl'7 tiit*-l THEN PRINT 

AT X,y-fl ; "Q" : BEEP .01,10: LET a 
sceseli: LET di-di+1 : LET *bi-0: 

LET bstm=bstm-1 : LET ystm=ystm+ 
2: LET yrsc*yrsc-f1 : PRINT AT x,y 
■fi;" " 

5070 PAUSE 10: PRINT AT a,b-fl;" " 
5075 IF di>5 THEN GO TO 7700 
5080 RETURN 

5090 PRINT AT a,b+l; N " ; AT a + 1,b-fl;" 

H 

5100 PRINT INK 3 ; AT a-f 1 , b-f 1 ; V E" ; 

INK 2 ; AT a + 1 , b-f 2 ; "F" 

5110 PAUSE 10: PRINT AT a-fl,b + l; M " 
5115 IF a-f 1 *x-f 1 AND b+2-y AND hit*2 

THEN BEEP .01,10: LET asc=asc+ 
1: LET bstm=bstm-l: LET bi=0: 

LET di-di+1: LET ystm-ystm+2: 
LET yrsc=yrsc+l 


51 1 6 

IF di>5 

THEN GO 

TO 7700 



5120 

RETURN 






51 30 

PRINT 

INK 

2 ; AT 

a+1,b;"F"; 

INK 

2 


;AT a+1 

, b + 1 

; "B" 




51 40 

RETURN 






51 50 

PRINT 

INK 

3; AT 

a+1,b;"B"; 

INK 

2 


;AT a+1 

, b+1 

• Non. 
» r » 

AT a,b+1;" 

F" 
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5160 RETURN 

6000 PRINT AT x,y-2 ;"LK";AT x+l,y-l;" 

H"; LET bs tra*=bs tm- 1 
6005 IF y- 2 = b AND ydef=2'THEN 

PRINT AT a ,b-1 ;"N": BEEP .05,0: 
LET bsc=bsc+l: LET di = 0: LET bi 
=bi+l: LET bs tm = bs tin+2 : LET ystra 
*ystm-l: LET brsc*brsc+l: 

PRINT AT a, b- 1 ;" " 

6010 PAUSE 10: PRINT AT x,y-2;" "; 

AT x + 1, y- 1 ;" H" 

6015 IP bi> 3 THEN GO TO 7700 
6020 RETURN 

6030 PRINT AT X+l,y-l; M H" ; AT x,y-l;" 
L" 

6040 LET punch«l 
6050 RETURN 

60 60 PRINT AT x»1 ,y-l ; "LH 1 * 

6070 LET punch*2 
6080 RETURN 

6090 PRINT AT x , y • 1 ;" ; AT xH,y-l;" 

AT x + 1, y-2;"LK H 
6095 LET bstm*bs 

6100 IF x+1*a+-l AND y-2*b AND yd«f«l 
THEN BEEP .01,0: LET di-0: 

LET bi»bi+l : LET bse-btìC+l : 

LET ystra*ystm-1 : LET batm«bstm+ 
2: LET brsc-brsc+1 
6110 IF bi>3 THEN GO TO 7700 
6120 PAUSE 10: PRINT AT x+l,y-2;" " 

6130 RETURN 

7000 PRINT INK 4; PAPER 2 ;AT 5,1; 

FLASH 1 ; "IL COMBATTI N^ENTO E* T 
ERMINATO": FOR f-1 TO 200: 

NEXT f 

7010 IF yrwin>brwin THEN LET b$-a$ 
7015 IF yrwin-brwin OR brwin-yrwin 
THEN LET b$-"PAHITA 1 " 

7020 IF brwin>yrwin THEN LET b$=*o$ 

7030 PRINT AT 12,0;"IL VINCITORE E'.. 
.": PAUSE 100: PRINT AT 12,18;b$ 

7031 FOR f=l TO 50: NEXT f 

7035 PAUSE 0: IF cf<2 THEN GO TO 800 
0 

7036 IF b$ *"PARITÀ *" THEN PRINT AT 1 

4,0; FLASH 1 ; "- LA BELLA E' N 

ECESS ARI A-" : FOR f=*l TO 200: 

NEXT f: GO TO 2 

7040 IF b$<>a$ THEN PAUSE 0: RUN 
7050 IF b$<>o$ THEN LET cf=cf-l: 

PAUSE 0: GO TO 2 
7120 PAUSE 0: RUN 

7500 PRINT AT 5,1; FLASH 1;"IL COMBAT 
TIMENTO E' TERMINATO": PAUSE 10 
0 

7510 IF ystm<0 THEN LET b$=o$ 

7520 PRINT AT 12,0;"IL VINCITORE E'.. 
.": PAUSE 100: PRINT AT 12,18;b$ 

7525 IF cf<2 THEN GO TO 8000 

7526 FOR t * 1 TO 200: NEXT f 
7530 GO TO 7040 

7540 PRINT AT 5,1; FLASH 1; M IL COMBAT 
TIMENTO E' TERMINATO": PAUSE 10 
0 

7550 IF bstm<0 THEN LET b$=u$ 

7560 PRINT AT 12,0;"IL VINCITORE E'.. 
.": PAUSE 100: PRINT AT 12,18;b$ 


/565 IF et<2 THEN GO TO 8000 
7566 FOR f-1 TO 200: NEXT f 
7570 PAUSE 0: LET cf=cf-l: GO TO 2 
7700 IF bi> 3 THEN GO TO 7800 
7710 IF di>3 THEN GO TO 7900 
7750 PRINT AT 12,0 ;"KNOCKDOWNlI l ! Ili i 
!!!!!!": STOP 

7800 PRINT AT a,b;" ";AT a+l,b;" "; 

AT a+2,b-3;"K.O. ";AT a+3,b;" " 

7810 PRINT AT a+3,b-4 ;"NOPEF" 

7820 PRINT AT 13,0;O$;" VINCE PER K.O 
. ! " 

7830 FOR f-0 TO 50: BEEP .01,f: 

NEXT f 

7835 IF cf<2 THEN GO TO 8000 
7840 PAUSE 0: RUN 

7900 PRINT AT x,y-l; M ";AT x+l,y-l; 

" " ; AT xt 2,y-l;" " ; AT x+3,y- 

^ . m ii 

7910 PRINT AT Xf3,y;" LKSK Q" 

7920 PRINT AT 1 3,0 ; a$ ; ,r_ V ÌNCE PER K.O 
; !": LET 

7930 FOR f-0 TO 50: BEEP .01,f: 

NEXT-f 

7940 IF cf< 2 THEN GO TO 8000 
7950 GO TO 2 

8000 CLS : FOR f = 0 TO 21: PRINT 
INK 2; PAPER 6 ;AT f,l; 

INVERSE 1 ;"IL CAMPIONE DEL MONO 
O E'." : PRINT AT f ,0;" 

H . 

BEEP .01,f: NEXT f 

8050 FOR f-0 TO 21: PRINT AT f,10;b$: 
DEEP .1,f: NEXT f 

8060 PRINT AT 21,0; INVERSE 1;" ";b$; 

" E' IL CAMPIONE 111": PAUSE 0 
8070 PRINT AT 10,0; INVERSE 1;" PRE 
MI UN TASTO PER GIOCARE " 

8080 PAUSE 0: RUN 
8090 STOP 
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Minotauro 



Vi trovate m uno strano labirinto e ben presto 
vi accorgete della presenza di un orribile mo¬ 
stro che. infuriato per l'intrusione, cerca di di¬ 
struggervi. Scopo del gioco è sopravvivere il più 
a lungo possibile percorrendo quanta più stra¬ 
da potete nel labirinto. Per aiutarvi, sono di¬ 
sposti lungo il percorso degli oggetti magici che, 
oltre ad aumentare il vostro punteggio quan¬ 


ti POKE55,255:POKE56,47:PRINT" 
{CLR}":POKE53280,2:POKE53281,0 

1 V=53248 :POKEV+22,216:POKEV+24, 
28 

2 POKEV +34,7:POKEV +35,5 

3 FORI = 1 2288T01 2471 :READQ:POKEI, 
Q:NEXT 

4 FOR1 = 1 254 4TO1 2 551 :POKEI,0 :NEXT 

5 FORI=l 2672T012751 :READQ:POKEI, 
0 :NEXT 

6 POKE54 296,1 0:POKE54 276,0:POKE5 
4276,33:POKE54278,240 

7 POKE54273,0:POKE54272,0 

8 SC=1024:CS=55296:X=4:Y=4:D=1: A 
= 15 :B= 20 :AD = 1:DI = 3 

9 PRINT"{HOME}IIIIIIGNNNNNFIIIII 
11IGNNNNFIIII1111 HIII" ; 

10 PRINT"IIIIIG{ 7 SPAZIJFIIIIII 

g { 6 spazi } fi inumili"; 

12 PRINT"IIIIG{ 9 SPAZI}FIIIIG 
{ 8 SPAZI } FU III IIIII I"; 

14 PRINT"IGLM{ 4 SPAZIJJK 

{ 5 SPAZI}FIIG{ 4 SPAZI}HE 
{ 4 SPAZljFIIIIIIIIII"; 

15 PRINT"G{ 7 SPAZI}LM 

{ 6 SPAZI}FG{ 4 SPAZI}HIIE 
{ 4 SPAZI}FIIIIIIIII"; 

18 PRINT"P{ 21 SPAZI}FIIG 

{ 2 SPAZI}D{ 2 SPAZIJFIIIIIII 
i"; 

20 PRINT"P{ 22 SPAZI}FG 
{ 7 SPAZIJFIIIIIII"; 

22 PRINT"P{ 4 SPAZI}HE 

{ 11 SPAZI}JK{ 13 SPAZI}FIIII 
II" ; 

24 PRINT" P { 3 SPAZI }HGFF. 

{ 3 SPAZI}JK{ 4 SPAZI}HIIE 
{ 13 SPAZIJFIIIII"; 

25 PRINT"P{ 3 SPAZI}FEHG 

{ 3 SPAZI}LM{ 3 SPAZI}HIGFIE 
{ 5 SPAZI} JK{ 6 SPAZljFIIII"; 


do li raccogliete, hanno il potere di spaventare 
il mostro e farlo allontanare dalle vostre vici¬ 
nanze per un po'. I comandi per il movimento 
sono: 

W in alto 
X in basso 
A sinistra 
D destra 


26 PRINT"P{ 4 SPAZI}FG 

{ 9 SPAZI}FIEHIG{ 4 SPAZl}HII 
P{ 5 SPAZI}HIIII"; 

28 PRINT"P{ 16 SPAZI}FIIG 

{ 2 SPAZI}D{ 2 SPAZI}FIIP 
{ 4 SPAZIJHIIIII"; 

30 PRINT"E{ 17 SPAZI}FG 

{ 7 SPAZI}LM{ 4 SPAZIJHIIIIII 

H . 

32 PRINT"IE{ 6 SPAZI}JK 
{ 22 SPAZIJHIIIIIII"; 

34 PRINT"IIE{ 5 SPAZljLM 
{ 21 SPAZljHIIIIIIH"; ’ 

36 PRINT"IIIE{ 12 SPAZI}JK 
{ 4 SPAZI}JK{ 3 SPAZI}HE 
{ 2 SPAZIJFIIIIIIII"; 

38 PRINT"IIIIE{ 11 SPAZI}LM 
{ 4 SPAZI}LM{ 3 SPAZI}FG 
{ 3 SPAZIJFIIIIIII"; 

39 PRINT" 1111 IE { 25 SPAZljD FUI 
III"; 

40 PRINT"IIIIIIE{ 2 SPAZI}D 

{ 2 SPAZI}HE{ 20 SPAZI)FIIIII 

• • • 
t 

42 PRINT"GNNNNFIP{ 4 SPAZI)FG 
{ 7 SPAZI } HP { 6 SPAZI J.1K 

{ 4 SPAZljFIIII"; 

43 PRINT"P{ 5 SPAZI}FP 

{ 13 SPAZI}FP{ 3 SPAZI}D 
{ 2 SPAZI)LM{ 5 SPAZI)FIII"; 

44 PRINT"P{ 5 SPAZI}HP 
{ 29 SPAZljFII"; 

45 PRINT"EOOOOHIP{ 5 SPAZI}HE 

{ 5 SPAZI)JK{ 16 SPAZljFI"; 

46 PRINT"IIIIIIIEOOOOHIIEOOOHIIE 
OOOOOOOOOOOOOOOHI"; 

47 FORI=960TO999:POKECS+I,2 :POKE 
SC+I,9:NEXT:M=SC+X+Y*40:MC=CS 
+X+Y* 40 

48 POKEMC,4 :POKEMC+1,4 :POKEMC + 40 
,4 :POKEMC+ 41,4 
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4 9 POKEM ,17: POKF.M + 1 ,18: POKEM+ 40, 
19 :POKEM+41 ,20 

50 FORZ=1TODI 

51 PE=PEEK(197):PRINT"(HOME) 

{ 20 GIU'}{DES}{WHT}”S 

52 M = SC+X+Y* 4 0 : X 1=X :Yl= Y 

55 IFPE09ANDPE023ANDPE01 OANDP 
EOI 8THEN95 
58 IFPE= 9THENY1=Yl-1 
60 IFPE= 2 3THENYl= Y1 +1 

65 IFPE=10THENX1=Xl-1 

66 WHER$=”MAN" 

70 IFPE=18THENX1=Xl+1 

71 DM =SC+X1+ Y1*40:Pl=PEEK(DM) :P2 
= PEEK(DM +1) :P3=PEEK(DM + 4 0) :P4 
= PEEK (DM 4-4 1 ) 

72 IF P1 =4 TU FJNGOTO 50 00 
7 3 IF P 2 = 4 THENGOTO 50 00 

7 4 IFP3 = 4THENGOTO5000 

75 IFP4 = 4THENGOT0 5000 

76 IFPl<4THENl000 

77 IFP2< 4THEN1000 

78 IFP3< 4 THEN1000 

79 IFP4 < 4THEN1000 

8 2 IFPl <1 7THENPOKE54 276,0 :POKE54 

276,33:POKE54273,20:GOTO95 
8 3 IFP2< 1 7THENPOKE54 276,0:POKE54 
27 6,33:POKE54273,20 : GOTO95 
8 4 IFP3<17THENPOKE54 276,0 :POKE54 
2 76,33:POKE54 273,20:GOTO95 
8 5 IFP4 <17THENPOKE54 276,0 :POKE54 

2 76,33:POKE5427 3,20 : GOTO95 

8 6 DOCS+Xl +Y1 *40: POKEM, 32: POKEM 

+1,32:POKEM+40,32:POKEM+41,32 

87 IFAD=lTHENPOKEDC,4:POKEDC+l,4 
: POKEDC+40,4 : POKEDC 4 41 ,4 

88 IFAD = - 1 THEN POKEDC , 3 : POKEDC-fi , 

3 :POKEDC+40,3 :POKEDC+41 ,3 

89 S = S + 1 

90 POKEDM ,17: POKEDM+1 ,18 

91 I FD = 1 THENPOKEDM + 4 0,1 9:POKEDM+ 
41 ,20 

92 IFD = -1THENPOKEDM+40,21 :POKEDM 
+41,22 

93 X = Xl : Y = Y 1 :D = -D 

95 POKE54 2 7 3,0:NEXT:Al=A:Bl=B:M= 
SC+A+B* 40 

96 IFRND(1 )<.8THENA1=A1+((Al>X)- 
(Al<X) )* AD 

98 DM=SC+A1+ B1*40:Pi= PEEK(DM):P2 
=PEEK(DM+1) : P3 = PF.EK ( DM + 40 ) :P4 
~PEEK(DM+41) 

9 9 IF(PI=320RPl< 5)AND(P 2 = 320RP2< 

5)AND(P3=320RP3<5)AND(P4=320R 
P4<5)THENA=Al 

100 I FA 1< >AANDRND(1 )<.5THENA1= A: 
Al=A1+1NT(RND(1)* 3)-1 :G0T098 

101 WHER$ = "JELLY" 

104 IFRND(1)<.8THENB1=Bl+((Bl>Y) 
-(Bl<Y))*AD 


105 DM=SC+A+Bl*40:Pl=PEEK(DM):P2 
= PEEK(DM + 1) :P3 = PEEK(DM + 4 0) :P 
4 = PEEK(DM + 41 ) 

106 IFPl>16ANDP1<32THENl000 

107 IFP2>16ANDP2<32THEN1000 

108 IFP 3>16ANDP3< 32THEN1000 

109 IFP4>16ANDP4< 32THEN100 0 

110 IFPl>2550RP2>2550RP3> 25 50RP4 
> 255THEN1000 

1 1 1 IF(Pl = 320RPl<5)AND(P2=320RP2 
< 5) AND(P3 = 320RP3< 5)AND(P 4 = 32 
ORP4 < 5)THENB = B1 

1 1 5 IFB1 < >BTHENBl=B:Bl=Bl+INT(RN 
D(1)* 3)-1 :GOTOl0 5 
120 DM=SC+A+B* 40 :DC=CS+A+B* 40 
1 30 POKEDC,14 :POKEDC+1 ,14:POKEDC 
+40,14:POKEDC+41,14 
1 35 POKEM,32:POKEM+1 ,32:POKEM+40 
,32 :POKEM+41,32 

1 40 POKEDM,0 :POKEDM+1 ,1 :POKEDM + 4 
0,2:POKEDM+41,3 

1 4 5 IFNU< > 0THENNU = NU+1 :IFNU=20TH 
ENNU=0:AD=1 

146 IFRND(l) <.0 3ANDDI>1THENDI=DI 
-1 

1 4 7 IFB = BlORA = AlTHENPOKE54 276,0: 
POKE54 276,33 : FORI=0TO5STEP.3 
:POKE54 273 ,I :NEXT 
148 POKE5427 3,0 
150 GOTO50 
1 000 IFAD = 1THEN2000 
1 001 POKE54 2 7 6,0:POKE54 2 7 6,33:FO 
RI=0TOl50STEP4:FORJ=lTO20:N 
EXT 

100 2 POKE54 27 3,1 :NEXT:POKE54 27 3 , 
0 

1004 M=SC+X+Y*40:DM=SC+X1+Y1*40 

1005 POKEM,32:POKEM+1,32:POKEM+4 
0,32:POKEM+41,32 

1006 POKEDM,32:POKEDM+1,32:POKED 
M+40,32 :POKEDM+41 ,32 

1010 M=SC+A + B* 40 : DM = SC+A1+B1 # 40 

1015 POKEM,32 :POKEM+1 ,32 :POKEM + 4 
0,32:POKEM+41,32 

1016 POKEDM, 32 : POKEDM+1 , 32 : POKF.D 
M+40,32:POKEDM+41,32 

1020 X=4:Y=4:A=15:B=20 
1 035 S=S + 500 : AD =1 
1040 GOTO50 

200 0 POKE54 276,0:POKE54276,1 29:P 
OKE54273,10 

2001 FORI=lTO700:NEXT 

2002 FORI = 240TO0STEP-2 :POKE54 27 3 
, I : NEXT 

2003 POKE54 2 7 3,0 

2005 POKEV+2 4,20 :PRINT"{CLR ) 

{GRN}PECCATO! IL MOSTRO TI 
HA PRESO!!" 

2010 PRINT”{ 2 GIU' ){WHT}HA I TOT 
ALIZZATO”S”PUNTI. (GIU' } ” 

202 0 IFS< 20 0THENPRI NT”{CYN)HA,HA 
! " 
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2030 IFS>199ANDS<400THENPRINT" 

{PUR}SCARSO•" 

204 0 IFS > 39 9ANDS< 80 OTHENPRINT" 

{YEL}SUPER !" 

2050 IFS>799THF,NPRINT" {RED }OTTIM 
01 " 

2060 PRINT'M 2 GIU 1 ){GRN}ANCORA 
(Y/N)?" 

2070 GETA$:IFA$="Y"THENRUN 
2080 I FA$< >"N"THEN2070 
2090 PRINT"{CYNjCIAO ! m 
2100 END 

5000 S = S+100 :AD = -1 :NU=1 
5002 POKE54 276,0:POKE54276,1 7 :FO 
RI -10TO50:POKE54 273,I:NEXT 
5005 POKE54 273,0 
5010 GOTO86 

9000 DATA32,131,47,55,63,63,255, 

254.8.8.224.1 1 2,240,240,188 
,172 

9010 DATAI 62,130,1 36,1 30,34,34,1 

28.128.44.8.8.32.32.8.1 31 ,1 
28 

9015 DATA0,0,4,29,63,29,4,0 

9016 DATA64,64,208,208,244,244,2 
53,253,127,127,31, 31, 7,7,1 , 
1 

9017 DATA253,253,244,244,208,208 
,64,64,1,1,7,7,31,31,127,12 
7 


9018 DATA255,255,255,255,255,255 
,255,255,0,0,0,1,7,31,31,12 
7 

9019 DATA0,0,0,64,208,244,244,25 
3 

9 020 DATAI 2 7,31 ,31 ,7,1 ,0,0,0,253 
,244,244,208,64,0,0,0 
9022 DATA85,85,0,0,0,0,0,0,0,0,0 
,0,0,0,85,85 

9024 DATA64,64,64,64,64,64,64,64 

9U25 DATAI,3,3,1,1,7,13,25,128,1 
92,192,12U,128,226,182,156 
9 0 30 DATA25,49,3,6,1 2,12,6,30,12 
8,128,192,96,56,24,48,0 
9040 DATAI,3,7,12,24,48,24,48,12 
8,128,192,192,96,48,48,240 
9050 DATA0,60,102,102,102,102,10 
2,60,0,48,112,48,48,48,48,1 
24 

9060 DATA0,60,102,6,12,48,96,126 
,0,60,102,6,28,6,102,60 
9070 DATA0,6,14,30,102,127,6,6,0 
,126,96,120,6,6,102,60 
9080 DATAO,60,102,96,124,102,102 
,60,0,126,102,6,12,24,24,24 

9090 DATAO,60,102,102,60,102,102 
,60,0,60,102,102,62,6,102,6 
0 


Vicowboy 



Chi non desidererebbe provare la forte senso 
zione di essere nei fortunati panni del famoso 
eroe dei fumetti Tex Willer. che centra una car¬ 
ta da gioco alla distanza di 100 metri?? 

Con questo fantastico gioco d'azione e di ri¬ 
flessi questo sogno che è nella mente di ogni 
persona potrà divenire virtualmente realtà me¬ 
diante il caro VIC 20. 

All'inizio del gioco verrà visualizzato l'mtrepi 
do cowboy con la sua fida pistola inserita nel 

10 REM COWBOY 

20 SC = 0: SI=36875:S2=36877:POKE36 

878,1 5 
30 HS=0 


fodero e pronta a sparare contro i cuormni che 
piovono dal cielo senza sosta. 

Per sparare è sufficiente premere il tasto 'F'. 
In totale cadono dal cielo 20 cuoricmi, ognuno 
dei quali, se colpito, frutta un punteggio di I 
punto. 

Al termine della partita verrà visualizzato il 
punteggio e il record finora raggiunto. 

Ed ora facciamo cantare le nostre colti! 


40 GOSUbdOO 
50 GOSUBl000 
210 FOKT=OTOl9 
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215 PRINT"{HOMK} { 5 GIU 1 }"; :GOSU 
DI 020 

2 20 G=INT(RND(.) *3000)+500iFGKZ^ 

1 TOC:NEXT 

2 30 PRINT" l HOME} { DLK ) PTS . = "SCTAB 
(1 2)"CUOREI = "T 

24 0 A=INT(RND(.) *1 1) 4768 9 :F = RND( 
0) 

250 F-A : POKEl 98,0 
2 55 GETG$ : IFG$="F"THKN300 
260 X=PEEK(F):Y-PEEK(30720+F) 

270 POKE30720+F,2:POKEF,83:FORO= 

1 TO50-T* 2 : NF.XT : POKEF , X : POKE3 
0720+F,Y:F=F+22 

2 75 IFF = A + 4 84THENNEXT: IFT>19THEN 
500 

2 80 G0T0255 

300 POKE8037,32:POKE8038,32:POKE 
8059,32:POKE8016,98:POKE3873 
6,6:POKE8017,121:POKE38737,6 

310 POKE80 3 8,75:POKE38758,6 
320 b = 80I8 

330 Q-220 :FORG=15TO0STKP-1 :POKES 
2,0*. POKE36 878 ,G:0 = Q-3 :NEXT: P 
OKES2,0 :POKE3 6878,1 5 
340 U-PEF.K ( D) : V-PEEK (30720+B) : PO 
KEJ0720+D,0:POKER,62:FOKZ=lT 
04 6-T* 2 :NEXT 

350 POKEB,U:POKE30720+B,V :B-B+1 : 

IFli*80 31THEN2 60 
360 X-PEEK(F):Y=PEEK(30720+F) 

370 POKE30720 + F,2 :POKEF,83 :FORG= 

1TO4 6-T* 2 :NEXT:POKEF,X :POKE3 
0720+F,Y:F-F+22 
372 1FF- BTHENGOSIJB4 00 
375 1FF = A+4 84THENNEXT:IFT>19THEN 
500 

380 GOTO3 4 0 

390 FORF-1TOl000 :NEXT 
4 00 POKE790 3,74 :Q-0:POKEF,62 :FOR 
Z = 1TOl5 :POKE30 720 + F,Q:POKES2 
-1,250:FORG=lTOl5:NEXT 
410 POKES2-1,0 :FORG=1TOl5 :NEXT:P 
OKES2- 1 , 240 :FORG=lT015:NEXT: 
POKES2-1 ,0 :FORG=1TOl5 
415 NKXT:Q=Q+1:IFQ>7THENQ=0 
4 20 NEXT:POKEF,U:POKE30720 + F,V :S 
C=SC+1:FORG=lTOl00:NEXT:POKE 
7903,47:RETUKN 

500 PRINT”{HOME}{BLK}PTS.=”SCTAB 
(12)"CUORE|-”T 
505 1=230:Q=225 

510 FORZ = 1TO3 :POKES1-1,1:POKES1 + 
1 ,I :FORJ-1TO70:NEXT:POKES! - 1 
,0 

520 POKES1 ,0 :POKESl+1,0:FORJ = lTO 

50 :NEXT:NEXT:POKES1 - 1,Q:POKE 

51 ,Q 

530 POKESlil ,Q:FORJ = 1TOl 400 :NEXT 
:POKESl-1 ,0 :POKES1 ,0:POKESl + 
1,0 

540 IFI=230THENI=228:Q=221:FORJ= 
ÌTOl 600 :NEXT:GOT0510 
550 I FSOH1 THb.NH I -SC 


5t*0 PRINT" (HOME) { 2 GIU'} 

{ 3 UES)IL RECORD E'"HI 

570 PRINT"PREMI (RVS)P(OFF) PER 
GIOCARE." 

580 GETG$: IFG$ = "P"THEN4 0 
590 GOTO580 

800 GOSUB1000:PRINT"{HOME}{DES}P 
REMI F PER SPARARE!! 2 DES} 
PREMI P PER GIOCARE!"; 

820 GETG$: IFG$ = "P"THENRETURN 

830 GOTO820 

1000 PRINT"{CLR}" 

1010 PRINT"(SU} (CYN} 1RVS}"; :FORF 
= 1TOl09 :PRINT" "; :NEXT 

1020 PRINT" {OFF}{ 2 GIU*}{BLK} 

{ 4 SPAZI}" 

1030 PRINT"{ 2 SPAZI}OP" 

1040 PRINT" 1<T>|0{REDTW(BLK}0"T 
AB(17) "{CRN} [< T>] " 

1050 PRINT" {BLK} {<G>}(GRN}N 
{BLK}I<G>}"TAB(16)"{GRNT 
(<T>1{YEL}{RVS} {OFF}(GRN) 
l <T>1" 

1060 PRINT"{ 2 SPAZI}{BLK}[<G>) 
N"TAB(16)"{GRN}(<T>)(YEL) 
TRVS} {OFF} {GRN} [< T >]" 

1070 PRINT" {BLK} {RVS) 

{ 2 SPAZI)(CYN)(OFF} M TAB(l5 
)"{GRN} l < T >1 {YEL} {RVS} 

{ 2 SPAZI}{OFF}{GRN}1<T>]" 
1080 PRINT" {BLK} {RVS} 

{ 3 SPAZI){OFF}"TAB(15)" 

{GRN}l<T>)!YEL){RVS} {OFF} 
{CRN}l<T>}" 

1090 PRINT" (BLK) {RVS} 

{ 3 SPAZI}{CYN}{OFF}"TAB(13 

)"{GRN}l<T>}{YEL}{RVS} 

{OFF} {RVS} {OFF}" 

1100 PRINT" {BLK} {RVS} 

{ 3 SPAZI}{OFF}{CYN} 

{ 3 SPAZI}"TAB(12)"{GRN} 
(<T>){YEL}{RVS}( 2 SPAZI} 
{OFF}{GKN}(<T>|{YEL}{RVS} 
{OFF}{CRN}l<T>)" 

1110 PRINT"{BLK}{ 2 SPAZI}{RVS} 

( 3 SPAZI}{OFF}1<L>JK"TAB(1 

3)"{CRN}[<T>}{YEL}{RVS} 

{ 3 SPAZI}{OFF}{GKNj [<T>1" 
1120 PR1 NT"{BLK} { 2 SPAZI} {RVS} 

{ 3 SPAZI) {OFF} {<N>) 

( 2 SPAZI}"TAB(15)"{GRN} 
l<M>}{YEL){RVS} (OFF)" 

1130 PRINT"{BLK} | 2 SPAZI} [< L>} 
l<Y >) [<J>}"TAB(15)"{GKN} 

( <M*> } { YEL} {RVS} {OFF}" 

1140 PRINT"{BLK}{ 2 SPAZI} (< L> J 
(<J>I"TAB(15)"{YEL}[<N>) 
{RVS} {OFF} 1<J>)" 

1150 PRINT"{BLK} { 2 SPAZI) [< L>] 

[ <*. J > 1 "TAB ( 1 5) " {GRN} l <C> } 
l <U> J l <V>} H 

1160 PRINT"{BLK){ 2 SPAZl}{RVS) 
{OFF} {RVS} {OFF}" 

1170 RETURN 
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Cacciatore di uova 


iirndaii^ 

Spectrum 


Congratulazioni! Siete stati assunti dalla Lega 
per la Protezione degli Uccelli per acchiappa¬ 
re a mezz’aria le uova che accidentalmente 
cascano dai nidi durante l'assenza dei genito 
ri. Più che per vocazione avete accettato l'in¬ 
carico per trascorrere qualche ora tranquilla¬ 
mente sdraiti in un prato a prendere un po' 


di sole. Purtroppo per voi. invece, le uova ini¬ 
ziano a cadere con una incredibile frequenza, 
e vi trovate cosi costretti a correre a destra e 
manca per minimizzare il disastro ecologico. 
Usate i tasti Q' e 'P' per muovervi e cercate 
di trovarvi sulla verticale dell'uovo in caduta. 
E occhio alle frittate.... 


10 REM *.*.*.*.*.*.*.*.*.*.*.* 

11 REM ..CACCIATORE DI UOVA.. 

12 REM *.*.*.*.*.*.*.*.*.*.*.* 

20 LET hi*0 

30 FOR a*USR "a" TO USR "f"+7: 

READ udg: POKE a,udg: NEXT a 

40 DATA 3,15,63,35,65,65,193,227 
42 DATA 192,240,252,196,130,130,131 
,199 

44 DATA 255,255,63,15,14,30,62,126 
46 DATA 255,255,252,240,112,120,124 
, 1 26 

48 DATA 60,126,255,255,255,255,126, 
60 

50 DATA 90,255,171,255,170,255,109, 
21 9 

70 BRIGHT 1: PAPER 0: BORDER 0: 

INK 9: CLS 


220 LET po-15 

230 LET re*INT (RND*30)fl: LET eg*eg 
+1: IF eg>50 THEN GO TO 500 

2 40 PRINT AT 0,0; PAPER 4; INK 9;”PI» 
NTI: ";mo 

250 PRINT AT 0,13; PAPER 5; INK 0;"!J 
OVA ";eg 

260 PRINT AT 0,23; INK 0; PAPER 6;"M 
AX " ; hi 

270 PRINT AT 1,0; INK 3 ;"FFFFFFFFFFF 
FFFFFFFFFFFFFPFFFFFFF" 

280 PRINT AT 2',0; INK 3;"FFFFFFFFFF 
FFFFFFFFFFFFFFFFFFFFFF M 

290 FOR c=3 TO 18 

300 PRINT AT 19,po; INK 5;" AB "; 

AT 20,po;" CD " 

310 PRINT AT c- 1,re;" ";AT c,re; 

INK 6;"E" 


90 PRINT AT 18,2; INK 9; PAPER lj 

FLASH 1; "PREMI UN TASTO PER IN 
I ZIARE" 

100 PRINT AT 2,7;"CACCIATORE DI UOVA 

n 

120 PRINT AT 6,10; PAPER 6 ;"CONTROLL 
I : " 


320 IF c*17 AND po*re OR c*17 AND po 
+ 1=re OR c*17 AND po+ 2 = re THEN 
LET mo*mo+INT (KND*100)+1 
340 LET po * po ♦■(IN KE Y $ * " p" AND po<28) 
- (INKEY$ *"q" AND po>0) 

350 IF IN KEY$ = "h" THEN PAUSE 0: 
PAUSE 0 


130 PRINT AT 9,10; PAPER 3;"P = DEST 
RA "?AT 11,10; PAPER 2;"Q * SIN 
ISTRA";AT 13,10; PAPER 1 ;"H * PA 
USA 

140 FOR t*l TO 6 
150 OUT 254,t 
155 NEXT t 

160 IF INKEY$<>"" THEN GO TO 190 
165 FOR t=l TO 6 
1 70 OUT 2 54,t 
175 NEXT t 
180 GO TO 140 

190 FOR a = 0 TO 30: BEEP .010,40: 

BEEP .015,50: NEXT a 
200 CLS 

205 PRINT 11; INK 9; BRIGHT 1;" 

PAPERsoft 
210 LET mo=0: LET eg*0 


360 NEXT c 

370 PRINT AT c-1,re;" " 

375 DEEP .05,5: BEEP .05,10 
380 GO TO 230 

500 PRINT AT 10,6;"LA PARTITA E* FIN 
ITA" 

510 FOR a*0 TO 30: BEEP .005, 5: 

BEEP .005,10: BEEP .005,15: 

BEEP .005,20: BEEP .005,25: 

NEXT a 

520 IF mo>hi THEN LET hi-rao: FOR a- 
0 TO 100: PRINT AT 0,20; FLASH 1 
;"NUOVO RECORD": NEXT a: GO TO 7 
0 

550 FOR a*0 TO 60: BEEP .001 0,50: 

BEEP .005,30: NEXT a: GO TO 70 
560 GO TO 540 
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Bit, 

la prima rivista europea 
di personal computer, 
software, accessori, 
la più prestigiosa 
e più diffusa in Italia 

con tutta la competenza del 

GRUPPO 

AfJ EDITORIALE 
W JACKSON 



Per ricevere gli arretrati di 


compilare il seguente tagliando: 



Compilare ed inviare in busta chiusa a: 
via Rosellini 12 - 20142 Milano • Tel. 02/6888228-683797-6880841-2-3 


Nome __ 

i 

Cognome _•_ 

Indirizzo_ 

CAP _ Città _ 

Desidero ricevere i seguenti numeri arretrati di 



a L. 2.000 cad. per un totale di L. 

□ assegno allegato □ contanti allegati 


Prov. _ 

I 

Anno - 

. a mezzo 































PERSONAL COMPUTER: 
le prime, le migliori! 


PERSONAL SOFTWARE: 
L'unica che presenta 
software per tutti i personal: 
Commodore, Apple, Sinclair, T.I., 
HP, Sharp, Sega, Olivetti, ecc. 







BIT: La più letta, 


la prima e la più diffusa. 


SPECIALE MACINTOSH 


SUPERBIT - 80 pagine di programmi 


per i vostri personal computer. 


Con tutta la competenza del 


Mi GRUPPO EDITORIALE 











Dalla grande edicola 

Jackson 

Tutto sul personal 

computer 


PC MAGAZINE 

In questo numero: 

La sfida di Unix 
Banche dati 

Easy writer: Caro PC, ti scrivo... 
Knowledge man 


PERSONAL O 


In questo numero: 

Il caso Fiat "Mille e un PC" 
MIO in redazione 
Un mondo a portata di tasto 


Personal-O/PC/Bit/Personal Software 
sono pubblicazioni firmate: 

GRUPPO EDITORIALE JACKSON 

via Rosellini, 12 20124 Milano 


BIT 

In questo numero: 

Speciale MSX 


In provo: 

Sinclair QL 
CP 80 II 
Yashica YC-64 
Philips VG-8000 
Canon V-20 
Sony Hit-Bit 75P 


PERSONAL SOFTWARE 

In questo numero: 

Languaae Tutor per Spectrum 
Sprite Editor per C64 
One Touch per VIC 20 
Apple: pagine video e dintorni 






A Milano, 

in via Mascheroni 14. 
La prima software 

libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla libreria JACKSON 

La prima software - libreria italiana. 

A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 



